Calcola area rettangolo

[Fire-Crash]

se la mia geometria è esatta dovrebbe funzionare :scivabbe:

#!usr/bin/perl
&function;
sub function
{
print q
{Calcola l'area del rettangolo

1)Calcola

2)Esci

};
$area = <STDIN>;
if($area == 1)
{
system(cls);
print "Inserisci la misura di una base ";
$uno = <STDIN>;
print "Inserisci la misura di un altezza ";
$due = <STDIN>;
$one = $uno * 2;
$two = $due * 2;
$res = $one * $two;
print "\n\n";
print "L'area misura $res cm quadrati";
<stdin>;
system(cls);
}
else
{
system(exit);
}
&function;
};