Select Code to Download

  if ()

...
  }
  else {
  }

  open my $file, ...

...
    chomp;
  }
  close $file;

  my $db = DBI->connect(...);
  END {$db and $db->rollback and $db->disconnect}