#my $var = "xxx\n";
my $var="zzz\n" unless defined($var);
print $var;

##</code><code>##

Name "main::var" used only once: possible typo at unlesstest.pl line 2.
zzz