perl \ -e 'chomp (my(@sn)=(`uname -m`, `uname -s`));' \ -e 'my $glibcso = q%/lib/libc.so.%;' \ -e '$glibcso=(-e "${glibcso}6" ? "${glibcso}6":-e "${glibcso}5" ? "${glibcso}5":"");' \ -e 'if ($glibcso) {' \ -e 'open my $scf, "-|", $glibcso or die "$glibcso : ",$!;' \ -e 'my $crv=<$scf>; close $scf;' \ -e '$crv=~m/[ ]version[ ]([^ ,]{1,4})/ && (push @sn, "gnu_libc_v$1") }' \ -e 'printf "%s\n", join q/_/=> map{"\L$_"}@sn;'