package amIBeingUsed;    # in amIBeingUsed.pm

	if(defined( ${ caller()."::RUNTIME_OK" } ))
	{
		# the flag is set
		print "what took you so long to call me?";
	}
	else
	{
		# still compiling
		print "eurgh, i feel so cheap!";
	}


 
sub import
{
	print " slap!!!\n";
}

1;