Select Code to Download

sub import_file
{
...
               handle => $upload->file_handle("upload"),
               mime => $upload->mime_type("upload"),
             );

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

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

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

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

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

Error executing run mode 'import_file': Weeee!!!!!

    my $buffer;
    my @results;
...
        push (@results, pack("u", $buffer));
    }
    $fh->close;