$f3->Checkbutton(-text => "text",-variable=>\$test,-command=>{print "Test"})->pack(-anchor=>'w');