#!/usr/bin/perl -w

use strict;

print "This is : $^O \n";
if ( $^O =~ /win/i )
{
   print "Looks like Windows\n";
}
if ( $^O =~ /linux/i )
{
   print "Looks like Linux\n";
}