#!/usr/bin/perl

use strict;
use warnings;
use Sys::Info;

my $info = Sys::Info->new;
my $os   = $info->os;
printf "Operating System is %s\n", $os->long_name;