There are tons of examples here of this problem.

Try CGI Upload.

Originally posted as a Categorized Answer.

The following uses the upload() function in CGI.pm >= 2.47.

HTML:

<form action="cgi-bin/uploader.pl" method="post" enctype="multipart/fo
+rm-data">
[download]

Perl:

my $image = upload_file( "file_to_upload.txt", "../incoming" );

sub upload_file
{
    local $| = 1;
    my( $filename, $path ) = @_;

    my $file = $query->upload($filename); # the magic
    open OUTPUT, "> $path/$filename" or die "$path/$filename - $!"; 

    binmode $file;
    binmode OUTPUT;

    my $buffer;
    while ( read( $file, $buffer, 64*2**10 ) )
    {
        print OUTPUT $buffer;
    }

    close OUTPUT;
    close $file;

    return( $filename );
}
[download]

I had to write my own when I found out that my version of CGI.pm didn't handle uploads. This is what I came up with for a M$Windwoes application

binmode STDIN;
read (STDIN, my ($cgidata), $ENV{'CONTENT_LENGTH'}) or doerror("Corrup
+t CGI header!");
my ($boundary) = $ENV{'CONTENT_TYPE'} =~ /boundary=(\S+)/;
my (@form) = split /\x0d?\x0a?--$boundary-?-?\x0d\x0a/, $cgidata;

for (@form) {
    if ($_ =~ /content-type:/i) {
        my ($details, $file) = split /\x0d\x0a\x0d\x0a/, $_, 2;
        $details =~ s/\x0d//gs;
        my ($MIME) = $details =~ /content-type: (.*)$/i;
        my ($name) = $details =~ /\sname="([^"]+)/i;
        if ($MIME =~ /jpe?g/i) { $image{$name} = $file }
        else { $textfile{$name} = $file }
    }
    else {
        my ($element, $value) = split /\x0d\x0a\x0d\x0a/, $_, 2;
        ($element) =~ /\sname="([^"]+)/i;
        $form{$1} = $value;
    }
}
[download]

I had to write my own when I found out that my version of CGI.pm didn't handle uploads

Uh, it's probably far easier to update your copy of CGI.pm than to write upload code properly. {sigh} Then you fix not only this problem, but many others solved by upgrading.

-- Randal L. Schwartz, Perl hacker

Re: How do I upload an image?

Originally posted as a Categorized Answer.