my ( $self ) = @_;

if( ( my $idx =  $self->{accounts_listbox}->GetSelection() ) != wxNOT_FOUND ) {

my $username = $self->{accounts_listbox}->GetString( ($idx) );
...


##</code><code>##

Can't locate object method "GetSelection" via package "Wx::ListBox"