POST/GETされたデータを表示するスクリプト

getquery.pl

#!/usr/bin/perl

use CGI;
$q=new CGI;
@names=$q->param;
print $q->header(-charset=>"utf-8"),
      $q->start_html(
              -title=>$title,
              -lang =>'ja',
              -style=>{-src=>'../style.css'}
              );  

foreach my $name ( @names ) { 
    print "$name: ",$q->param($name),$q->br;
}

print $q->end_html;

以下のようなフォームを用意して呼べばどんなデータがどうやって送られているかが分かる．開発段階では便利．

print $q->startform(-action=>"getquery.pl");
print $q->submit(-name=>"get status");
...
print $q->endform;