use Sys::Info;
my $info = Sys::Info->new;
my $os = $info->os;

printf "%s (%s bit)\n", $os->name(long => 1), $os->bitness;