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

##</code><code>##

die $syntax if ! defined (my $x = shift);