perl foo.pl < infile > outfile

##</code><code>##

print (gmtime $_);

##</code><code>##

print scalar gmtime($_);

##</code><code>##

print scalar localtime($_);