C:\Perl>perl stats.pl
0.0400      Data Loaded
0.4200      Lines Parsed: 10347
0.4210      Data Dumped
0.8810      TOTAL ; Finished Execution

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

##</code><code>##

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

##</code><code>##

do "data.dat";