use POSIX qw( CHAR_MAX );
BEGIN { my $x= CHAR_MAX(); }
BEGIN { print defined(\&CHAR_MAX), $/; }
for(qw( CHAR_MAX POSIX::CHAR_MAX )) {
    my $proto= prototype($_);
    $proto= "..."   if  ! defined $proto;
    print "$_($proto)\n";
}
print CHAR_MAX, $/;
print CHAR_MAX+1, $/;
__END__
Produces:
1
CHAR_MAX(...)
POSIX::CHAR_MAX(...)
127
127