my $get_button
        = $mw->Button(
            -text=>'Get',
#          -command=>[\&ff_get, $date, $cd ],
      -command => sub{  ff_get($date,$cd)    }  

      )->pack();