Help for this page
Select Code to Download
Select
or
download this
sub defaults { my $d1= ( @_ ? shift : 1 ); ... 0 2 3 0 0 3 0 0 0