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