use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new;

print $cgi->header; # use $cgi->header("image/gif") for gifs 
print $cgi->start_html;
print $cgi->table( $cgi->Tr( $cgi->td([ $cgi->img({src=>"blarg"}) )));