#!/usr/local/bin/perl -w
# package-names.pl -- Zeigt die Namen eines Packages an.

package pnames;      # Damit wir nicht stoeren

print "Package to explore? [main] "; chomp($packname = <STDIN>);
$packname ||= 'main';

# Leider koennen wir nicht %$pname:: direkt sagen...
# Daher verwenden wir den Alias-Mechanismus:
*symtab = *{ "${packname}::" };

print join(' ', sort keys %symtab), "\n";