Help for this page

Select Code to Download

Select or download this

sub customerupload{
        my $self = shift;
...
        else{$error .= $CGI::VERSION."file not uploaded <br>$filename<
+br>$file<br>"."<br>$!<br>";}
        return $self->template({ file => 'customers.html', vars => {er
+ror           => $error, }});
}

Select or download this

my $fhin=CGI::upload('uploadfile')||CORE::die "cannot convert [$filena
+me] into filehandle: $!";