in reply to saving the file uploaded...
my $scalar = ''; $scalar = {}; print ref $scalar, "\n"; $scalar = []; print ref $scalar, "\n"; use IO::File; $scalar = IO::File->new(); print ref $scalar, "\n"; [download]