use strict;
use CGI;

my $cgi = new CGI;
print $cgi->header();

body();
1;

sub body {
 ...
}