#!/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();