Help for this page
#!/usr/bin/perl use warnings; ... sub clicked1 { print "1\n"; }
#!/usr/bin/perl use warnings; ... } }