#!/usr/bin/perl -wT

print "Content-type: text/plain\n\n";
local %ENV = (PATH => '/usr/local/bin');
print `eval \$BAD_VAR`;