--------------------------------------
#!/usr/bin/perl
Here's all my perl code
where I set my variables and do my logic

print <<EOP;
 here's all my html where I put in my $vars and @foos
EOP
---------------------------------------