my $filename = $request->param('file');
my $filehandle = $request->upload( $filename );

##</code><code>##

my $filename = $request->param('file');
binmode ($filename);
# etc