#!/usr/bin/perl

$ENV{TERM}='vt100';

$recent_file='/tmp/RECENT.txt';
$email_file='/tmp/ARRIVALS.txt';
$email_recipient_list='princepawn@yahoo.com';

system "lynx -dump http://www.cpan.org/RECENT.html > $recent_file";

open T, $recent_file;

while (<T>) {
    /(authors.*readme$)/ && push @readme, $1;
}

`echo "" > $email_file`;

for $readme (sort @readme) {
    my $url = "http://www.cpan.org/$readme";
    warn $url;
    system "lynx -dump $url > X";
    system "echo $url >>$email_file";
    system "head -5 X >>$email_file";
    system "echo >>$email_file; echo >>$email_file";
}




    `cat $email_file | mail $email_recipient_list`;