Basic example

     $ cat tests/statement
     #!/usr/local/bin/perl

     my $pi = 3.14159;
     my $r  = 4;
     my $c  = 2 * $pi * $r;
     my $a  = $pi * $r * $r;