Upload File Cgi Sample

#! c:/perl/bin/perl

use CGI;
$q = new CGI;

$upload_dir = "portraits";

if ($q->param('portrait')) {
    &print_page_start;
    &write_file;
    &print_page_end;
}
else {
    &print_page_start;
    &prit_form;
    &print_page_end;
}

sub print_page_start {
    print $q->header,
        $q->start_html('portrait upload');
}

sub print_page_end {
    print $q->end_html;
}

sub print_form {
    print $q->start_form('post', 'upload.pl', 'multipart/form-data');
    print $q->filefield('portrait');
    print $q->submit;
    print $q->end_form;
}

sub write_file {
    $fname = $q->param('portrait');
    if ($fname =~ /.*[](.*)/) {
        $out_fname = $1;
    }
    else {
        $out_fname = $fname;
    }
    $counter = 0;

    while ( -e "$upload_dir/$out_fname") {
        $counter++;
        $out_fname =~ s/^(.+)/.(.+)$/$1$counter/.$2/;
    }

    print "$fname<br />/n";

    open(OUTFILE, "> $upload_dir/$out_fname");

    while ($nread = read($fname, $buffer, 1024)) {
        print OUTFILE $buffer;
    }

    close $fname;
    close OUTFILE;
}

sub print_success {
    print $q->p, "The file was saved successfully.";
}