Select Code to Download

use strict;
use warnings;
...

    return $filehandle;
}

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

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

...
my $plotlength = 10;
...

) or die "Error in command line arguments\n";