use Time::Local;

print "\nEnter Year -> ";
$year = <>;
print "Enter Month (1-12) -> ";
$mon = <>;
$mon--;
print "Enter Day (1-31) -> ";
$mday = <>;

print "\nComputer Time:\n\n";

$time = timelocal(0, 0, 0, $mday, $mon, $year);

print "writing to file \"time\" $time....";

open(TIME, ">time");
print TIME $time;
close(TIME);

print "done\n\n";