Select Code to Download

sub fmove {
my ($i,$data,$mvo,$mvn);
...
while (($i=sysread $mvo,$data,4096)!=0){print $mvn $data};
close($mvn);close($mvo);unlink("$_[0]");
}