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