#!/usr/bin/perl

use Net::Delicious;
use HTML::Entities;
use strict;
use warnings;

my $del = Net::Delicious->new({user=>"Schuyler", pswd=>"xxxxxxxxxxxxxxx"});

for my $p ($del->recent_posts({count => 12})) {
    my $desc = encode_entities( $p->description ) or next;
    my $ext  = encode_entities( $p->extended ) || "";
    my $href = $p->href;

    print qq{<div class="delPost">&middot; <a class="delLink" title="$ext" href="$href">$desc</a></div>\n};
}