Select Code to Download

$file[$i]=do{local(@ARGV,$/)=$files[$i];<>};

mkdir("$name",0777)||print $!;

$oldlocation="/home/newbie/ta/$file[$i]";