Help for this page

Select Code to Download


  1. or download this
    if ($path =~ /^([-\@\w.\/\s]+)$/) {
   $path = $1;
} else {
   die "Bad path in $path";
}
  2. or download this
    $ENV{PATH} = '/usr/lib/perl5/5.6.1/File/';