my ($package, $filename, $line) = caller;

print "It's there!\n" if defined ${$package}::variable;