#!/usr/bin/perl

my $x;

if ( $x = 4 ) {
    print "Hi";
}
#output
Found = in conditional, should be == at /home/pm line 5.
Hi