#! /usr/bin/perl

@a = &test() ;
if ( defined @a) {
	print "defined\n" ;
}


sub test {
	return undef ;
}