#! perl
use strict;
use warnings;
use macro max => sub { $_[0] > $_[1] ? $_[0] : $_[1]; };

my $x = $ARGV[0];
my $y = $ARGV[1];
my $m = max($x, $y);

print "max is $m\n";