sub buildgui
  {
    (my $fname)=@_;
    require Tk;
    require Tk::FileSelect;

    my $mw=MainWindow->new;
    $mw->title("DNA to Protein");

    my $LoadDialog = $mw->FileSelect();

    $LoadDialog->configure();