use Time::local;
$fmt = 1;
$sec =2 ;
$min =3;
$hours =4;
$mday = 6;
$dmon =5;
$mon =6;
$year =7;
$wkday =8;
$Yearday =9;
$DST = 10;

#  use POSIX qw(strftime);

print timelocal($sec,$min,$hours,$mday,$mon,$year);