#!perl -wT
use strict;

my $bad_stuff = $ENV{HOME};
system($bad_stuff);