--------------------------------------------------------
#!/usr/bin/perl 

use Apache2::Upload;

$req = Apache2::Request->new($r);
$upload = $req->upload("foo");
$size = $upload->size;

# three methods to get at the upload's contents ... slurp, fh, io

$upload->slurp($slurp_data);

read $upload->fh, $fh_data, $size;
ok $slurp_data eq $fh_data;

my $io = $upload->io;
print while <$io>;

--------------------------------------------------------