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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    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

##</code><code>##

    print &q(<<"EOT");
    :       #!$bin/perl
    :       eval 'exec $bin/perl -S \$0 \${1+"\$@"}'
    :               if \$running_under_some_shell;
    :       
    EOT

##</code><code>##

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

##</code><code>##

    #!/usr/bin/perl

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