Języki skryptowe

#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

print header, start_html ("Ice Cream Stand"), h1 ("Ice Cream Stand");
if (param ()) { # ten skrypt był już wywoływany: znamy parametry
   my $who = param ("name");
   my $flavor = param ("flavor");
   my $scoops = param ("scoops");
   my $taxrate = 1.0743;
   my $cost = sprintf ("%.2f", $taxrate * (1.00 + $scoops * 0.25));
   #          ^ działa jak printf, ale drukuje do napisu
   print p ("Ok, $who, have $scoops of $flavor for \$$cost.");
} else { # pierwsze wywołanie: prezentujemy formularz
   print hr ();
   print start_form ();
   print p ("What's your name? ", textfield ("name"));
   print p ("What flavor: ", popup_menu ("flavor",
         [ 'mint', 'cherry', 'mocha' ]));
   #     ^ adres anonimowej tablicy zawierającej te elementy
   #     można napisać rownież:
   #     @choices = ( 'mint', 'cherry', 'mocha' );
   #     popup_menu ("flavor", \@choices);
   print p ("How many scoops? ", popup_menu ("scoops",
         [ 1..3 ]));
   print p (submit ("order"), reset ("clear"));
   print end_form (), hr ();
}
print end_html;