Select Code to Download

# -*- Perl -*-

...
1;

__END__

#!/usr/bin/perl

...
print $fh2 "bar\n";

__END__

C:\temp>perl testmh.pl

...
DECIMALSEPARATOR=.
foo
bar