print "called from " . (exists $ENV{REQUEST_URI} ? "web\n" : "non-web\n");