$mw-> Button (-text =>'Get Statistics', -command => sub { get_statistics($current_file) } );

##</code><code>##

    -command => \&get_statistics