sub symbols {
  my $pkg = $_[0] || '';
  no strict 'refs';
  print "Symbols: ", join(" ", sort keys %{$pkg.'::'}), "\n";
}
symbols('strict');