Select Code to Download

#! perl
use strict;
...
my ($a, $b, $c) = (4, 2, '-');
my  $op = "$a $c $b";
print "$op = ", eval $op, "\n";

14:39 >perl 823_SoPW.pl
4 - 2 = 2

14:39 >