I think you want the function that does the reverse of localtime, which lives in the Time::Local module. That function is not called emitlacol, but timelocal, but it takes the output of localtime and turns it into epoch seconds again. If you're already using a fancier date/time handling module, like DateTime, most of them also have a function to output the epoch time.

Check this out.

perldoc -f localtime perlfunc

localtime
               Converts a time as returned by the time function to a 9
+-element list with the time analyzed for the local time zone.
               Typically used as follows:

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
..........
[download]