ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch5/untaint.eg

Text File | 1992-10-18 | 37 b | 3 lines

$ARGV[0] = /^([\w.]*)$/;
$free = $1;