time will do just that for the current time. If you want to convert another time to epoch seconds check out Time::Local ie

use Time::Local;
my $epoch_secs=timelocal( $sec, $min, $hrs, $dd, $mm-1, $yy);
[download]

vroom | Tim Vroom | vroom@cs.hope.edu