<![CDATA[
#!perl -w
use strict;
use FileHandle;
my $MAX_SCORE = 1e200;
print "My MAX_SCORE is ", $MAX_SCORE, "\n";
print "My MAX_SCORE is ", ++$MAX_SCORE, "\n";
print "My MAX_SCORE is ", ($MAX_SCORE + 1e100), "\n";
print "My MAX_SCORE is ", ($MAX_SCORE + 1e200), "\n";
print "My MAX_SCORE is ", ($MAX_SCORE + 1e300), "\n";
print "My MAX_SCORE is ", $MAX_SCORE + 1e400, "\n";
my $seq = "1234567890123456789012345678901234567890123456789012345x";
for(my $i=0;$i<length($seq);$i+=50) {
print substr($seq, $i, 50), "\n";
}
open BADFILE, "badFile.txt" || die("badFile.txt error: $!\n");
print "Ref: ", ref(\*BADFILE), "\n";
teller(\*BADFILE);
close BADFILE;
my $fh = new FileHandle;
open ($fh, "badFile.txt") || die("badFile.txt error: $!\n");
print "Ref: ", ref($fh), "\n";
teller($fh);
close $fh;
exit(0);
sub teller {
$fh = shift;
print "Ref: ", ref($fh), "\n";
}
]]>