Help for this page

Select Code to Download

Select or download this

BEGIN{
    my %month = (
        'Jan' => '01',
...
    #my $log_name = "./log/ST03_$year-$month{$mname}-$day\_$time.log";
    our $log_name = "./log/ST03_$year-$month{$mname}-$day\_$time.log";
}