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