Select Code to Download

1|1/27|2002|3|26|19|7|7|21|10|3|34|7|73|undef|71|6|20
2|2/03|2002|3|26|19|8|28|21|10|3|34|7|73|undef|72|6|20
...
5|2/24|2002|3|18|23|6|28|22|10|3|46|38|73|undef|72|8|20
6|3/03|2002|3|13|25|6|36|18|28|9|33|38|44|undef|65|8|20
7|3/10|2002|3|13|35|11|50|22|28|9|33|38|44|undef|65|8|20

#!/usr/local/bin/perl5 -wT

...
        print $msg, "\n";
    }
}

#!/usr/local/bin/perl5 -wT

...
binmode STDOUT;
print $gd_image->png;
get_data();

my @data = ( [ qw ( $date ) ], 
             [ qw ( $aaa_partners ) ], 
             [ qw ( $aaa_arf ) ],
);