#!/usr/bin/perl
$me = 1;
sub need {
$want = shift;
$need = $want+$me;
return $need;
}
print need($me)."\n";
$me = 1;
sub need {
$want = shift;
$need = $want+$me;
return $need;
}
print need($me)."\n";
