use Symbol::Table;

$, = $\ = "\n";
print sort keys %{ New Symbol::Table PACKAGE => 'main'};