use CGI(qw(:standard)); $File = param("upload"); $Filename = "param("name"); open (FILE, "> $Filename"); binmode $File; binmode FILE; while(read $File,$Temp,1024) { print FILE $Temp; } close FILE;