Help for this page

Select Code to Download

Select or download this

#!perl -wT
use strict;

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