Select Code to Download

use LWP::UserAgent;
{
...
    );
    print "$_\n" for(@msg);
}

{
    local $\="\n";
...
              'access.log',              # local logfile output
              );
}

sub Yesterday {
    sprintf "%04d-%02d-%02d", Add_Delta_Days(Today(),-1);
}