Simple time to epoch

time_to_epoch

#!/usr/bin/perl

#$second = waktu dalam detik
#$minute = waktu dalam menit
#$hour = waktu dalam jam (1-24)
#$day = hari 
#$month = 0 => january 11 => december
#$year = tahun

use Time::Local 'timelocal';

$second = 0;
$minute = 10;
$hour = 10;
$day = 23;
$month = 5;
$year = 2015;

print timelocal($second, $minute, $hour, $day, $month, $year);
print "\n";