Select Code to Download

#!/usr/bin/perl -w
use strict;
...
hour  = 07
min   = 42
sec   = 48

use Time::Local;
#These are the inverse functions of localtime() and gmtime()
...

$time = timelocal($sec,$min,$hour,$mday,$mon,$year);
$time = timegm($sec,$min,$hour,$mday,$mon,$year);