Select Code to Download

use strict;
use Tk;
...
    $PW->Popup();
    $button->focus();
}

package Skrabbel;

...
    my ($self) = @_;
    return $self->{word_list};
}