#!perl5.24 my ($x, $y) = @ARGV; print $x * $y;