use CGI::Simple qw(-upload);
my $q = new CGI::Simple;
my $ok = $q->upload( $q->param('upload_file'), '/path/to/write/file.na
+me' );
print "Uploaded ".$q->param('upload_file')." and wrote it OK!" if $ok;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print