Help for this page
Select Code to Download
Select
or
download this
my ($a1, $a2) = (shift, shift);
Select
or
download this
my ($X,$Y) = @_;