#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

my $foo = 1;

if($foo = 2) {
        print "Boo!\n";
}