Select Code to Download

    open(FIN,"< $full_path") || print "File Not Found"; 
        binmode FIN;
        $buffer = join '', <FIN>;
    close(FIN);
    print $buffer;

open my $fin, '<:raw', $full_path or die WHATEVER;
local \$;  # or use File::Slurp
print <$fin>;

#!/usr/bin/perl -T

...
};

__END__