Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    carp "Hey, that's too many parameters!" if @_;
    print "Ref of $p1 is '".(ref $p1)."'\n";
}
  2. or download this
    Ref of 3.14159265 is ''
Ref of 3.14285714285714 is ''
...
        main::taster('p', 'i', 'e') called at test.pl line 12
Ref of p is ''
Ref of 3 is ''