Select Code to Download

my $first   = shift || die "first file\n";
my $sec     = shift || die "second\n";

#!/usr/bin/perl
use strict;
...
    print "\n\n\n$key\n\n\n";
    }