Help for this page

Select Code to Download

Select or download this

my $this= shift;
 # ... do some checking here.
my ($x,$y,$z)= @_;