Select Code to Download

#!/usr/bin/perl
use strict;
...
open my $F, "<", $file or die "Error reading $file: $!";
exec $1, @ARGV if <$F> =~ /^#!(\S+)/;
exit 1;