# Read file: open(FILE, $file);
# Convert to multipart MIME & save in temp file
# Make socket connection: $socket = IO::Socket....
# Generate HTTP POST HEADER: print $socket "POST /cgi-bin/upload.pl HTTP/1.0\n" etc. 
# Read multipart temp file line by line and write to socket: while(<TEMP>){ print $socket }
# When finished (EOF): print "\n\r\n\r";
# Read server response: while(<$socket>){ print }