print $query->frameset({-cols=>'25%, 75%'},
     frame({-name=>'left', -src=>"./left.pl?id=${identifier}", -method=>'POS
+T'}),
     frame({-name=>'right', -src=>"./right2.pl?id=${identifier}", -action=>"
+./right2.pl", -method=>'POST'})
);