Select Code to Download

my $w;
$w->{main} = MainWindow->new;
...
    # Do stuff with $w here now like normal
    $w->{main}->configure( -title => "new title" );
}

1 if $a; # for example

sub unused
{
...
    1 if $a;
    1 if $b;
}

#! /usr/bin/perl -w

...
        print "testbutton does not exist\n";
    }
}