sub mySub {                                             # 200
                                                        # 201
  my $file = shift;                                     # 202
  open(FILE, ">$file") or warn "Can't open $file: $!";  # 203
       # do stuff
       close(FILE);
     }

&mySub($filename);