#!c:\perl\bin\perl -w

BEGIN {
    $|=1;
    use CGI::Carp('fatalsToBrowser');
}

use strict;
use CGI qw(:standard);
my $x = new CGI;


print $x->header;

print param('TB');

print <<EOF;
<form method="POST" action="temp.pl">
  <p>
  <input type="checkbox" name="TB" value="ON" checked=0> check</p>
  <p>
  <input type="submit" value="Refresh" name="BRef"></p>
</form>
EOF
;