use Win32::GUI();

my $selected_item;
my @drucker = ('HP Inkjet', 'Laser 2');

my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Druckerauswahl', -width => 200, -height => 200);

my $lv = $main->AddListView(
  -singlesel => 1,
   -pos  => [ 0, 0 ],
   -size => [ 190, 125 ],
 );
 
$lv->InsertColumn(
   -index => 0,
   -text  => "Drucker",
 );
 
$lv->ColumnWidth(0,180);

for my $dr (@drucker) {
  $lv->InsertItem(-text => $dr);
}

$main->AddButton(
	-name    => "IB",
	-text    => "Drucker setzen",
	-onClick => \&savePrinter,
);

$main->Show();

Win32::GUI::Dialog();

sub lv_Click {
  ($selected_item) = $lv->SelectedItems();
}

sub savePrinter { # hier Drucker abspeichern!!!!
  $selected_item;
}

sub Main_Terminate {
        -1;
}