Select Code to Download

open STDOUT ">whatever.dat";
# Here comes all the coding
close STDOUT;

PRINT   INFO     12December2004 "Importing JOB x into database"
PRINT   WARNING  12December2004 "Job did already exist"
STDOUT  ERROR    12December2004 "No permission to overwrite job"

sub WriteLog
{
...
    print "$script\t$type\t$today\t$log\n";
    close (LOG);
}