#!/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{
· $desc
\n}; }