# ...
} else {
   open I,$fnm;
   print $wr $_ while($_=<I>);
   exit(); # Stick this after all your code
}