Select Code to Download

#!perl -w
use Getopt::Std;
...
sub ErrorReport{
    Win32::FormatMessage( Win32::GetLastError() ) . "\n";
}

#!perl -w
use Getopt::Std;
...
 ($sec,$min,$hour,$mday,$mon,$year) = localtime($tomorrow);
 return POSIX::mktime(0 ,0, 0, $mday, $mon, $year,0,0,-1);
}