Help for this page

Select Code to Download

Select or download this

# start the logfile
slog "$logfile";
slog "=======================================START=";
...
slog "= ".(scalar localtime);
# do some stuff
noslog;

Select or download this

sub slog(@) { 
    $::_slogfh||=new IO::File $_[0],">>";
    print $::_slogfh @_,$/ 
};
sub noslog() { undef $::_slogfh };