Select Code to Download

package MyConstants;

...
    goto &$func;
}
1;

#!/usr/bin/perl;

...
print join(" => ", @ary[FOO(),NIL()]),$/;
__END__
mene => muh