Select Code to Download

#!/usr/dist/share/perl,v5.003/5bin.sun4/perl
use strict;
use warnings;
...
2011/04/12 12:50:24|red|florida
2011/04/12 15:20:21|green|tampa
2011/04/12 15:30:12|red|miami

my $time_ago = strftime "%Y/%m/%d %H:%M:%S",
    localtime timelocal_nocheck $s, $m, $h - $hrs, $d, $mon, $y;

use DateTime;

my $date = DateTime->now->subtract(hours => 1);
my $hr_before = $date->set_time_zone('local')->strftime("%Y/%m/%d %H:%
+M:%S");