Select Code to Download

#!C:\Perl\bin\perl.exe -w 

use strict;    # I'm a masochist
...
close(SESAME) || die "Cannot close $file: $!";
my $total = @lines;
print "There are $total records in $file\n";

{
    local *SESAME;        # localizing a filehandle saves debugging ti
+me too
    open (SESAME, $file) || die "Foo: $!";
...
    @lines = <SESAME>;
    close (SESAME) || die "Bar: $!";
}