#!/usr/bin/perl -wT
use strict;
use Time::Local;
use POSIX;

my @localtimearr = localtime;

print Time::Local::timelocal(@localtimearr), "\n";
print POSIX::mktime(@localtimearr), "\n";

=sample OUTPUT
1003277170
1003277170