Select Code to Download

sub foo {
    my ($s1, $s2) = @_;
...

    return join '', @s1;
}

#!/usr/bin/perl

...
}

__END__

#!/usr/bin/perl

...
}

__END__