Select Code to Download

use strict;

...
    link $ARGV[0], $ARGV[1] or die "link failed: $!\n";
}
print "$ARGV[1] is now installed as a link to $ARGV[0]\n";

my $Usage = <<ENDUSE;
Usage: $0 [-s] file_name link_name
...
} else {
    link ...
}