CGI in HTML frames

#!/usr/bin/perl
use CGI qw/:standard :netscape/;
use CGI::Carp;

print "Content-type: text/html\n\n";
print <<EOF;
<FRAMESET ROWS="150,*">
<FRAME NAME="aa" SRC="http://www.google.com">
</FRAMESET>
EOF
print end_html();