#!c:/perl/bin/perl.exe -wT

##</code><code>##

use CGI qw/:standard/;
print header;

##</code><code>##

open FILE, "<$somefile" or die $!;