use strict;
use warnings;
use Carp;

use constant BAR => 3.14159265;

my @list = ('p','i','e');
taster(BAR);
taster(22/7);
taster("constant");
taster(\@list);
taster(@list);
taster(scalar @list);

sub taster
{
	my $p1 = shift;
	carp "Hey, that's too many parameters!" if @_;
	print "Ref of $p1 is '".(ref $p1)."'\n";
}

##</code><code>##

Ref of 3.14159265 is ''
Ref of 3.14285714285714 is ''
Ref of constant is ''
Ref of ARRAY(0x182af0c) is 'ARRAY'
Hey, that's too many parameters! at test.pl line 18
        main::taster('p', 'i', 'e') called at test.pl line 12
Ref of p is ''
Ref of 3 is ''