use CGI; #use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); use Parse::HTTP::UserAgent; my $page = new CGI; my $cgi = new CGI; #print $cgi->header( -type =>'text/html', # -expires =>'+1h'); print $cgi->header(-nph=>1); print $cgi->start_html( -dtd => '-//W3C//DTD HTML 4.01 Frameset//EN' -title =>'Test', ); print < <body> <p> Diese Seite verwendet Frames. <br> Frames werden von Ihrem Browser aber nicht unterst&uumltzt. </p> </body> EOF ;