#!/usr/bin/perl -T
use strict;
use warnings;

$ENV{PATH} = '/usr/bin:/usr/local/bin:/bin';
$ENV{ENV} = '';

my $untainted = 'foo';
my $temp_fails = [ 
                   `mktemp /tmp/temp.$untainted.XXXXXX`,  
                   `mktemp /tmp/temp.$untainted.XXXXXX`,
                 ];