Select Code to Download

#!/usr/bin/perl -w

...
}

sub minimize {
    ($state eq 'min') and return;
...
    $mw->geometry(undef);
    $mw->update;
}