signature_update.pl

#!/perl/bin/perl

use strict;
use warnings;
use XML::TreePP;

my $tpp = XML::TreePP->new();
my $tree = $tpp->parsehttp( GET => "http://news.livedoor.com/topics/rss.xml" );
my $file = "/home/username/.opera/mail/signature.txt";

my $str = << "EOM";
foobar太郎 <foobar\@yourdomain.com>
===News===
$tree->{rss}->{channel}->{item}->[0]->{title}
$tree->{rss}->{channel}->{item}->[0]->{link}
EOM

open my $fh, '>', $file or die $!;
print $fh $str;
close $fh;

exit;