open ( UPLOADFILE, ">$filepath" ) or die "$!";
binmode UPLOADFILE;

while ( <$file> )
{
print UPLOADFILE $_;
}

close($file);   
close UPLOADFILE; 


}