Select Code to Download

C:\Perl>perl stats.pl
0.0400      Data Loaded
...
1.7620      Lines Parsed: 20337
50.5330     Data Dumped
52.3350     TOTAL ; Finished Execution

use Data::Dumper;
$Data::Dumper::Indent = 0;
$encoding = Data::Dumper->Dump(    [\%DATA    ],
                [qw(*DATA)]);

do "data.dat";