use strict;

my $out;

my $COUNT = 0;

my $PORT = undef;

my $PATH = "/usr/local";

my $CODE = "";

my $COUNT = ifnil($COUNT);
my $PORT = ifnil($PORT);
my $PATH = ifnil($PATH);
my $CODE = ifnil($CODE);

print "COUNT: $COUNT\nPORT: $PORT\nPATH: $PATH\nCODE: $CODE\n";

sub ifnil
{
    my ($value) = @_;

    my $null = "null";

    if ( $value eq "" )
    {
        $out = $null;
    }
    else
    {
        $out = $value;
    }

    return $out;
}