# perl -w
package test_caller;
if (caller) {
	print 'imported';
	return 1;
}
else {
	print 'direct execution';
}
print ' do not need to end in truth';
0;

# 'direct execution do not need to end in truth'