#!/usr/bin/perl 
sub doit {
   open FH, shift or die "open failure: $!\n";
   $! = shift;
   1 while <FH>;
   $n = $!+0;
   print "n=$n s=$!\n";
}
doit $0, 5;   
doit $0, 6;  
doit $0, undef;