foreach my $name (sort keys %{*main::}){
print "Symbol '$name'\n";
}