use Config qw|config_vars|;

print "Using Perl Malloc? ";
config_vars('usemymalloc');
print "\n";