Select Code to Download

sub screwed {
  my ($in) = @_;
...
  while(<IN>) { print "file $in contains $_"; }
  close(IN);
}

while(defined(my $foo = <IN>)) { print "file $in contains $foo"; }