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

##</code><code>##

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

##</code><code>##

sub WriteLog
{
	my ($script,$type,$log) = @_;
	$logfile = $job_path.'/user/LogFile.txt';
		open (LOG, "$logfile") || die "File does not exist\n";
	print "$script\t$type\t$today\t$log\n";
	close (LOG);
}