Select Code to Download

sub default
{
        foreach (@_)
...
                $_ = '' unless (defined($_));
        }
}

my $aaa = 'bar';
my $bbb = 0;
my $ccc = undef;
...
print "ccc=$ccc\n";
print "ddd=eee($ddd{eee}) fff($ddd{fff})\n";
print "iii=@iii\n";