Select Code to Download

#!/usr/bin/perl -w
use strict;
...
            ->result, 
        $/; 
}

#!/usr/bin/perl -w
use strict;
...

package My::Soapy;
sub testy() { 'happy!' }