#!/afs/athena/contrib/perl/p

&foo("x", "y");

sub foo {
    local($a, $b, $c) = @_;
    if ($c eq "") {
	print "Equal to null string\n";
    }
    if (defined($c)) {
	print "Defined, too.\n";
    }

}