Select Code to Download

#!/usr/bin/perl
use yX;
...

$ cat yX.pm
package yX;
...
};

1;

$ cat a.pl
#!/usr/bin/perl
use yX;
cevag("Uryyb, Jbeyq!\a");

$ a.pl
Hello, World!