view release on metacpan or  search on metacpan

t/cgi/upload.t  view on Meta::CPAN

use Apache::TestRequest 'UPLOAD_BODY_ASSERT';
print UPLOAD_BODY_ASSERT "/TestCGI__upload", undef, content => "ABCDEFGHIJ";