if ($path =~ /^([-\@\w.\/\s]+)$/) {
   $path = $1;
} else {
   die "Bad path in $path";
}

##</code><code>##

$ENV{PATH} = '/usr/lib/perl5/5.6.1/File/';  ?