#!/usr/bin/perl

BEGIN {
   use FindBin;
   use lib ("$FindBin::Bin", "$FindBin::Bin/libs");
   $ENV{TMPDIR} = $ENV{TEMP} || "";
};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer =:-)

use strict;
use warnings;

use CGI::Untaint;
...