my $str;

if ($str eq "")
{
     print "str is null\n";
}
else
{
     print "str is not null\n";
}