Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $difference = $result->{'difference'};

print "The square of $number is $square.\n";
  2. or download this
    package Square;
use base 'CGI::Application';
...
}

1;
  3. or download this
    #!/usr/bin/perl -T
use warnings;
...

my $square = Square->new();
$square->run();
  4. or download this
    <html>
  <head>
...
    <!-- /TMPL_IF -->
  </body>
</html>