#!/usr/bin/perl
use strict;
use Ex1;
my $wid = 2;
my $len = 5;
my $area = getArea($wid, $len);
print "Area:$area\n";

my $bd = Ex1::getBoundary($wid,$len);
print "Boundary:$bd\n";