Select Code to Download

my $highlander;
BEGIN {
    open $highlander, '<', $0 or die "Couldn't open $0: $!\n";
...
        exit;
    };
}