Select Code to Download

sub saysOutput {
    my( @message ) = @_;
    print "Content-Type: text/html\r\n\r\n";
    print join "\r\n", @message;
};

    # undef may be returned if it's not a valid file handle
    if ( my $io_handle = $q->upload('field_name') ) {
...
            print $out_file $buffer;
        }
    }