#!/usr/bin/perl -w

use CGI;
use strict;
my $page = CGI::new();
my $input = $page->param('checkbox1');
if ($input eq 'on') {
	# do something
} else {
	# do something else
}
exit (0);