#!/usr/bin/env perl use strict; use warnings; use 5.010_000; use Net::Delicious; binmode STDOUT, ':utf8'; my $user = 'fontani'; my $pass = shift or die "$0: need password\n"; my $del = Net::Delicious->new({ user => $user, pswd => $pass, debug => 0, }); foreach my $p ( reverse $del->recent_posts() ) { say $p->description(), ' [', $p->tags(), ']'; say $p->href(); say '-'x72; }