# Insert in open_file after $ListBox is defined.
$ListBox->bind('<ButtonRelease-1>',
               sub { $filename = $ListBox->get('active')});