#!perl -l

use Time::Local;
$sec = 1;
$min = 2;
$hours = 3;
$mday = 4;
$mon = 5;
$year = 6;

print $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
print scalar localtime $time;