Select Code to Download

#!/usr/bin/perl
open(my $handle1, "<", "/tmp/1") or die "Input file does not exist.\n"
+;
...
  }
}