#!/usr/bin/perl
use Rectangle;
my $w = 3;
my $l = 4;

my $rect = new Rectangle($w,$l);
my $area = $rect->getArea();
print "Area = $area\n";

my $b = $rect->getBoundary();
print "Boundary = $b\n";