sub import_file
{
  my $self = shift;

  my $query = $self->query();
  my upload = CGI::Uload->new($self);
  my %file = ( name => $upload->file_name("upload"),
               type => $upload->file_type("upload"),
               handle => $upload->file_handle("upload"),
               mime => $upload->mime_type("upload"),
             );
[download]

Using Data::Dumper on %file gives this output:

Error executing run mode 'import_file': $VAR1 = {
  'handle' => bless( \*IO::File::_GEN_0, 'IO::File' ),
  'name' => 'test_file.txt',
  'type' => 'txt',
  'mime' => 'text/plain'
};
[download]

Ok, all very well and good.  So to get to the data in the uploaded file, we simply use IO::File methods on $file{handle}.  Right?  <SNL skit mode>WRONG!!!</SNL skit mode>

Trying

my @foo = ();
while($_ = $file{handle}->getline) { push @foo, $_; }
[download]

(because IO::File inherits from IO::Handle, which is where we find ->getline) gives us nothing pushed into @foo.  Ok, fine.  Trying

my @foo = ();
while($_ = \*{$file{handle}}->getline) { push @foo, $_; }
[download]

gives the error

Error executing run mode 'import_file': Can't call method "getline" wi
+thout a package or object reference
[download]

Alright, we had it right the first time.  Then why is nothing getting pushed into @foo?  And before jumping to the conclusion of "Open the file, silly!", running

die "Weeee!!!!!" if($file{handle}->opened);
[download]

results in this being returned

Error executing run mode 'import_file': Weeee!!!!!
[download]

Doing a Super Search resulted in finding CGI::Upload - CGI class for handling browser file uploads, by the original author of the module.  In the aforementioned link, I found this example code

    my $buffer;
    my @results;
    my $fh = $upload->file_handle('upload');
    while (read($fh, $buffer, 45)) {
        push (@results, pack("u", $buffer));
    }
    $fh->close;
[download]

Merging the above example code into my code results in...  nothing!  Absolutely, positively, nothing is in @foo no matter what method is used!

So now I ask you, esteemed monks, how do I get at the data behind the filehandle held in $file{handle}?