use CGI::Carp qw(fatalsToBrowser); お決まり文句

いきなり携帯から聞いたことのない音が鳴り出したと思ったら 地震速報だった。 何事もなくてよかったです。

my $query_str = (defined $ENV{'QUERY_STRING'})? $ENV{'QUERY_STRING'} : "" ; my %query; foreach my $line (split /\&/, $query_str) { # test=1&cmd=init&first=E&random=212 my ($key, $val) = split /\=/, $line; $query{$key} = $val; log_out("$key…

偶然発見！ あきおの日記