#!/usr/bin/perl use CGI; $query = new CGI(); print "Content-type: text/html\n\n "; print <<__PART1__; Rad Upload Lite
__PART1__ $user_agent=$query->user_agent; $useApplet=0; if($user_agent =~ /konqueror/i || $user_agent =~ /macintosh/i || $user_agent =~ /opera/i) { print ''; $useApplet=1; } else { if($user_agent =~ /MSIE/) { print ''; } else { print ''; } print ' '; } print ""; print ''; if($useApplet==1) { print ''; } else { print ''; } print '

 

A product of Rad Inks

';