#!/usr/bin/perl use warnings; use strict; my $a = 5; if ($a > 2) { print "Larger than 2.\n"; } $a = "Hello"; if ($a ne "World") { print "Not the word 'World'.\n"; }