$ perl -MHTTP::Date -le " print for ~~localtime, ~~gmtime, str2time(q/20110905 142631/) " Mon Sep 5 06:25:26 2011 Mon Sep 5 13:25:26 2011 1315257991 $ perl -MHTTP::Date -le " $f = str2time(q/20110905 142631/) ; print for ~~localtime $f, ~~gmtime $f" Mon Sep 5 14:26:31 2011 Mon Sep 5 21:26:31 2011