use Devel::Symdump;
my $obj = Devel::Symdump->new(@main::);
my $string = $obj->as_string;
print $string;