#!/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";