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

##</code><code>##

    # Insert in load after $filename is set.
    $mw->configure(-title => 'TextEd - ' . $filename);