Use of uninitialized value $_ in print at sopw-simple.pl line 6.

##</code><code>##

$_ = "TestA" or "TestB";

##</code><code>##

Found = in conditional, should be == at ./sopw-simple.pl line 4.
Useless use of a constant (TestB) in void context at ./sopw-simple.pl line 4.
TestA