Help for this page

Select Code to Download

Select or download this

    my $info = uploadInfo($fname);
    print "uploadInfo:<br>";
    map {print "  $_: " . $info->{$_} . "<br>\n" } sort keys %$info;