open ( UPLOAD, ">$file" );
	while ( read ( $data, $buffer , 1024 ) )
	{
		$buffer =~ s/\r//g;
		print UPLOAD $buffer;
	}
	
	close ( UPLOAD );