#!/usr/local/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print header;
$JSCRIPT = <<END;  
if ( navigator.appName.indexOf('WebTV') != -1 ) 
{
document.write("<FORM name='upload' method='post' enctype='multipart/form-data' action=''>"); 
document.write("from PC: <input type='file' name='upfile' size='28' value='testing'>"); 
document.write("<input name='subm2' type='submit' value='GO'>"); document.write("<input type='reset' value='reset'><BR></FORM>"); 
}
END

print start_html(-title=>'jsTEST', -script=>$JSCRIPT);
print "<BR>";

$query = new CGI;
$query->param('upfile') = "<script>document.write(upload.upfile.value)</script>";

$upfile = $query->param('upfile');

print $upfile;