perl calc.pl --length 20 --width 30