#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:all);

my $q = CGI->new;

print $q->header();
print $q->start_html();
print $q->img({src => 'image.gif'});
print $q->end_html();