CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Create Frame set
#!/usr/local/bin/perl
use CGI;
$co = new CGI;    
print $co->header,
$co->frameset(
    {-rows=>'40%,60%'},
    $co->frame
    ({
        -name=>'top',
        -src=>'http://www.yourserver.com/username/cgi/a.htm'
    }),
    $co->frame
    ({
        -name=>'bottom',
        -src=>'http://www.yourserver.com/username/cgi/b.htm'
    })
);