use CGI(qw(:standard)); $File = param("file"); $Filename = "attachments/1.txt"; open (FILE, "> $Filename"); binmode $File; binmode FILE; while(read $File,$Temp,1024) { print FILE $Temp; } close FILE;