Select Code to Download

#!/usr/bin/perl 
use strict; 
...
__END__
C:\Old_Data\perlp>perl t33.pl
min-max 34-61 mean: 50.7 std. deviation: 5.6 count: 100

#!/usr/bin/perl
use strict;
use warnings;
...
 
store \@grid, 'grid.dat';
store \%param, 'param.dat';

#!/usr/bin/perl 
use strict; 
use warnings;
...
__END__
C:\Old_Data\perlp>perl his_stat.pl
mean: 60 std. deviation: 5 count: 100

#!/usr/bin/perl
use strict;
use warnings;
...
__END__
C:\Old_Data\perlp>perl my_stat.pl
mean: 64 std. deviation: 5 count: 100