Select Code to Download

my $filename    = $upload->file_name( 'fichier' ); 
my $type        = $upload->file_type( 'fichier' ); 
my $file_handle = $upload->file_handle( 'fichier' );

sub file_XXXX {
    my $self = shift;
...

    return $self->{'_PARAMS'}->{$param}->{'file_XXXX'};
}

    my $object = {
        'file_handle'   =>  $fh,
...
    $fh->binmode if $CGI::needs_binmode;

    return $object;

sub _handle_file {
    # ... more code
...

    # ... more code
}

    my $browser = HTTP::BrowserDetect->new;
    fileparse_set_fstype(
...
                ? 'MacOS'
                : $^0
    );

#!/usr/bin/perl -w
use strict;
...
print test( 3 ),$/;
print test( 5 ),$/;
sub foo {};