Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
}
close $fh_out;
#close $fh;

2007-Jan-11 00:00:00 UTC (GMT +0000) - Poll: channel = one, ref = com,
+ id = 595143009
2007-Jan-07 00:00:01 UTC (GMT +0000) - Poll: channel = two, ref = com,
+ id = 133714761
...
2007-Jan-11 00:00:03 UTC (GMT +0000) - Poll: channel = three, ref = co
+m, id = 659718092
2007-Jan-11 00:00:04 UTC (GMT +0000) - Poll: channel = three, ref = co
+m, id = 006456768
2007-Jan-11 00:00:05 UTC (GMT +0000) - Poll: channel = one, ref = com,
+ id = 133714761

2007-Jan-11 00:00:05 UTC (GMT +0000) - Poll: channel = one, ref = com,
+ id = 133714761 1