sub my_close { my( $fh ) = @_; close($fh) or die "$!\n"; } sub my_open { my( $file, $mode ) = @_; open my $fh, $mode, $file or die "$!\n"; return $fh; } sub errors { my( $file, $mode ) = @_; my $fh = my_open($file, $mode); my @errors = (); while( <$fh> ) { chomp; next if /^[a-z]/; push( @errors, qq(Line $. '$_' does not begin with lowercase letter.) ); } my_close($fh); # Safe to close file like this??? return @errors; }