0:05 >perl 1334_Med.pl 17 12
max is 17

 0:05 >perl -MO=Deparse 1334_Med.pl
Compiling 1334_Med.pl by macro::compiler/0.06 ...
sub Digest::base::new;
sub Digest::base::clone;
sub Digest::base::add;
sub Digest::base::digest;
use macro ('max', sub {
    use warnings;
    use strict;
    $_[0] > $_[1] ? $_[0] : $_[1];
}
);
use warnings;
use strict;
my $x = $ARGV[0];
my $y = $ARGV[1];
my $m = $x > $y ? $x : $y;
print "max is $m\n";
1334_Med.pl syntax OK

 0:05 >