#!/usr/bin/perl
# $Id: symtab.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $
# Print the names of all symbols in the symbol table main::
foreach $symname (sort keys %::) {
    print $symname, "\n";
}

