#/usr/bin/perl -w

use strict;
use CGI qw(:standard);

my $cgi = CGI->new;

if ($cgi->param()) {
    if ($cgi->param('toggle_on')) {
        &toggle_on;
    } elsif ($cgi->param('toggle_off')) {
        &toggle_off;
    } else {
        &default;
    }
} else {
    # print form
    print $cgi->a({href => "/cgi-bin/script.cgi?toggle_on=1"}, "Toggle On");
    # print more stuff
}