BEGIN {
   push @ARGV,"check1=LHB"; # Simulation Parameterübergabe
}
use strict;
use CGI qw/:all/;

my $check1 = param('check1');
my $check2 = param('check2');

print STDERR "\$check1: $check1\n\$check2: $check2\n";

print checkbox(-name=>'check1',
               -value=>"LHB",
               -checked=> $check1 eq "LHB" ? 1 : 0,
               -label=>'LHB'
               ),
      "\n",
      checkbox(-name=>'check2',
               -checked=> $check2 ? 1 : 0,
               -label=>'LFB'
               );
_ _ END _ _
<input type="checkbox" name="check1" value="LHB" checked="checked" />LHB
<input type="checkbox" name="check2" value="on" />LFB

STDERR:
$check1: LHB
$check2: