#!/usr/bin/perl
# main script
use strict;

{
  package Query;
  require "file.pm";
}

print "in package ", __PACKAGE__, $/;

for my $sym ( keys %Query:: ) {
  no strict 'refs';
  print "file.pm: $sym\n" if defined *{'Query::'.$sym}{CODE};
  print "file.pm: subref \$$sym\n" if ref ${*{'Query::'.$sym}{SCALAR}} eq 'CODE';
}