Re: Tell if arch is HP or HPIA64

I needed a similar thing once, could not think of anything better than this:

sub arch {
    my $arch = `$^X -v`;
    $arch =~ s/.* built for //s;
    $arch =~ s/\n.*//s;
    return $arch;
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ