#!/usr/bin/perl -T
# file taint.pl
use FindBin;
BEGIN { $FindBin::Bin =~ /^([\w\/\.]+)$/ and $FindBin::Bin = $1 }
use lib "$FindBin::Bin/tmp";
use Qwargl qw(blorgh);
blorgh();

##</code><code>##

# file tmp/Qwargl.pm
package Qwargl;
use 5.10.0;
require Exporter;
@ISA = qw(Exporter);
our @EXPORT_OK = qw(blorgh);
sub blorgh {
    say "strzdiwuddz!";
}
"yecch";