#!/usr/local/bin/perl -w use strict; use CGI qw/:standard/; { print header, start_html(-title => 'Test CGI'), p, checkbox('c1', 1, 'ON', 'c2'), end_html; } #### !! cgi.pl (offline mode: enter name=value pairs on standard input) c1=1 Content-Type: text/html Test CGI

c2