Help for this page
#!/usr/bin/perl use strict; ... my $difference = $result->{'difference'}; print "The square of $number is $square.\n";
package Square; use base 'CGI::Application'; ... } 1;
#!/usr/bin/perl -T use warnings; ... my $square = Square->new(); $square->run();
<html> <head> ... <!-- /TMPL_IF --> </body> </html>
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (473 votes), past polls
