エラーをブラウザで見る

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

#!/usr/bin/perl -w

BEGIN{
    print "Content-type: text/plainnn";
    open(STDERR, ">&STDOUT");
    $|=1;
}

{
my $_;