use Config;

if ($Config{cc} =~ /gcc/) {

    print "built by gcc\n";

}



use Config qw(myconfig config_sh config_vars);

print myconfig();

print config_sh();

config_vars(qw(osname archname));

*****

name='value';

*****

use Config;



defined $Config{sig_name} or die "No sigs?";

foreach $name (split(' ', $Config{sig_name})) {

    $signo{$name} = $i;

    $signame[$i] = $name;

    $i++;

}



print "signal #17 = $signame[17]\n";

if ($signo{ALRM}) {

    print "SIGALRM is $signo{ALRM}\n";

}

