Re: epoch time

Use Time::Local. For example:

#! /usr/local/bin/perl

use Time::Local;

my $timestring = timelocal(0,0,0,31,0,2007);
print $timestring,"\n";
[download]

Outputs:

1170230400
[download]

Thanks,

s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;