et lille problem

[Snoozo <sslug@sslug>]

Hej,

Her er mit script, der skal gøre det muligt at sende et html dokument
til "lpr", og derefter udskrive dette.

#!/usr/bin/perl  -w

use CGI qw(:standard);
use strict;
print header,start_html,start_multipart_form(),
filefield(-name=>'uploaded_file',
                   -default=>'starting value',
                   -size=>50,
                   -maxlength=>80),submit,end_form;

my $filename = param('uploaded_file');
print $filename;

if(my $fh = upload('uploaded_file')){
    while (<$fh>){
         print;
    }
 }
print end_html;

Af en eller anden ukendt grund for mit vedkommende, så sender
ovenstående ikke noget til printeren, og derefter skriver dokumentet ud.

Mit spørgsmål lyder så på, hvad gør jeg eventuelt forkert i dette her
script, og hvad er der af fejl og mangler ?

På forhånd tak for hjælpen.

Snoozo