Help for this page

Select Code to Download


  1. or download this
    $file = $q->param('file');
die "horribly" if $file !~ /^[a-z]+\z/;
open FILE, $file;
  2. or download this
    $file = $q->param('file');
($file) = $file =~ /^([a-z]+)\z/;
open FILE, $file;