# Print Listbox Button 
my @filenames; 
my @selected_files = $listbox->curselection; 
for (@selected_files) { 
    my $file = $listbox->get($_); 
    push @filenames, $file; 
}