Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub DESTROY() {}

1;

my $window = Gtk::Window
    ->Class::Proxy::MethodChain::new("toplevel")
...
        ->show
    )
    ->show;