#!/usr/bin/perl -w
use strict;
use Carp;
my $foo;
my $fum="testing";
"$fum" && 0;
"$foo" && 0;
print "$fum $foo\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Carp;
my $foo;
my $fum="testing";
my $f_foo = defined $foo ? $foo : '';
my $f_fum = defined $fum ? $fum : '';
print "$f_fum $f_foo\n";