my $min;
my $hr;
my $day;
my $mon; 
my $yr; 

($_,$min,$hr,$day,$mon,$yr,$_,$_,$_) = localtime();