Select Code to Download

eval{
...
  open FILE, $file or die "File open error ($!)";
  ## other similar stuff
}