sub screwed { my ($in) = @_; local $_; # basically a temporary $_ just for this sub open(IN, "<$in"); while() { print "file $in contains $_"; } close(IN); }