format_c@manchester:~> perl -e 'my $var;print "undef\n" if $var eq undef;'
undef
format_c@manchester:~>