Select Code to Download

#!/usr/bin/perl -T
# file taint.pl
...
use lib "$FindBin::Bin/tmp";
use Qwargl qw(blorgh);
blorgh();

# file tmp/Qwargl.pm
package Qwargl;
...
    say "strzdiwuddz!";
}
"yecch";