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"};