$ perl -wle'
use strict;
my $var;
if ($var eq "etwas") {
 print "$var enthält etwas"
}'
Use of uninitialized value in string eq at -e line 4.