>perl -w
my $splort;
if( $splort = 0 ) {
   print 'narf!';
}
^Z
Found = in conditional, should be == at - line 2.