Help for this page

Select Code to Download


  1. or download this
    sub eq{ print "@_"; $_[0] eq $_[1] };;

...
print &eq( $x=1, $x=2 );;
2 2
1