# Command-line (my $x = shift) or die $syntax; (my $y = shift) or die $syntax;