Select Code to Download

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

Name "main::DATA" used only once: possible typo at a3.pl line 24.
readline() on unopened filehandle DATA at a3.pl line 24.

2007-Nov-07 00:00:00 UTC (GMT +0000) - Poll: channel = ONE, ref =
2007-Nov-07 00:00:01 UTC (GMT +0000) - Poll: channel = TWO, ref =
...
2007-Nov-07 00:00:03 UTC (GMT +0000) - Poll: channel = TWO, ref =
2007-Nov-07 00:00:03 UTC (GMT +0000) - Poll: channel = TWO, ref =
2007-Nov-07 00:00:04 UTC (GMT +0000) - Poll: channel = TWO, ref =