Select Code to Download

calculate.pl dialog

...
OK
explode
Invalid statement

$ ./calculate.pl
> EQUALS
...

Invalid statement
>

#!/usr/bin/perl
use strict;
...
  my($cmd,$num,$total) = @_;
  print "COMMAND: $cmd, VALUE: $num, TOTAL: $total \n";
}