Select Code to Download

Select or download this

#!/lab/bin/perl
    eval 'exec /lab/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
#!/usr/bin/perl

Select or download this

    #!/usr/bin/perl
    eval 'exec /usr/bin/perl -wS $0 ${1+"$@"}'
            if $running_under_some_shell;

Select or download this

    eval '(exit $?0)' && eval 'exec perl -wS $0 ${1+"$@"}'
    & eval 'exec /usr/bin/perl -wS $0 $argv:q'
            if $running_under_some_shell;

Select or download this

    sed "s/^X//" >'dbdump' <<'END_OF_FILE'
    X: #!/usr/bin/perl
    Xeval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    X if $running_under_some_shell;
    X#!/usr/local/bin/perl

Select or download this

    print &q(<<"EOT");
    :       #!$bin/perl
...
    :               if \$running_under_some_shell;
    :       
    EOT

Select or download this

    print OUT <<"!GROK!THIS!";
    $Config{startperl} -- # -*- perl -*-
         eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
             if \$running_under_some_shell;
    !GROK!THIS!

Select or download this

    #!/usr/bin/perl

    eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
        if 0; # not running under some shell