examples/scalars/compute_area_of_rectangular.pl
#!/usr/bin/perl
use strict;
use warnings;

my $length = 3;
my $width  = 5;
my $area   = $length * $width;
print "$area\n";