GUI Dumper Perl snippet