#!/usr/bin/perl -wT 

# Copyright (c) 2000-2001 Kirrily Robert <skud@cpan.org>
# Copyright (c) 2000-2002 Mitel Networks Corporation
# This software is distributed under the same licenses as Perl itself;
# see the file COPYING for details.

use strict;
use lib "../lib";
use CGI::FormMagick;
use Data::Dumper;

my $fm = new CGI::FormMagick();

$fm->display();
$fm->finishbutton(0);

sub wibble {
    my ($fm, $data) = @_;
    return "OK" if $data eq "wibble";
    return "NOT_WIBBLE";
}