Help for this page
$mw-> Button (-text =>'Get Statistics', -command => sub { get_statisti +cs($current_file) } );
-command => \&get_statistics