$foo = $bar;
if( $foo ) { ...

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my $foo = 1;
my $bar = 2;

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

if ($foo = $bar) {
            print "foo is bar two too\n";
}

##</code><code>##

 
Found = in conditional, should be == at ./tpl line 8.
foo is 2
foo is bar two too