use IO::Handle;
use CGI;
open CGI, 'somefile' or die $!;
my $cgi = CGI->new;