sub fmove {
my ($i,$data,$mvo,$mvn);
open($mvo,"<",$_[0]) or die $!; binmode($mvo);
open($mvn,">",$_[1]) or die $!; binmode($mvn);
while (($i=sysread $mvo,$data,4096)!=0){print $mvn $data};
close($mvn);close($mvo);unlink($_[0]);
}