Use of uninit val in concat (.) or string at filebot.pl line 149.
Use of uninit val in subst (s///) at filebot.pl line 150.
Cannot do that because Is a directory at filebot.pl line 157.

[download]
That's 2 warnings and 1 error. The warnings might not amount to anything, but something tells me that this line: 
$file =~ s/.*[\/\\](.*)/$1/gi;

[download]
is going to break ... use File::Basename instead.

The error is one of these two die's: 

sysopen( ... ) or die "Cannot do that because $!";
...
   print UPLOADFILE or die "Cannot do that because $!";

[download]
and i'd put my money on the first one. Make absolutely sure that the web server can create files in the directory and make sure that the file doesn't already exist (or take out O_EXCL from the sysopen call). You might also want to make sure that uploaded file handle is valid as well: 
die "not a Fh" unless ref($upload_filehandle) eq 'Fh';

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In reply to Re: PoCo::Server::HTTP and CGI Uploads by jeffa
in thread PoCo::Server::HTTP and CGI Uploads by OverlordQ

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.