#The Open button:

$mw-> Button (-text =>'Open',-command=>\open_file)->place(-x=>240, -y=>35); 


sub open_file {my $open = $mw->getOpenFile(
                               -filetypes => $types_OPEN,
                              -defaultextension => '.sff');
                                      $te->Load( "$open");}



#The Get Statistic button:

$mw-> Button (-text =>'Get Statistics', -command =>\&get_statistics); 

sub get_statistics {-------Here i need your help----};

# The Scrolled windows:

$te = $mw->Scrolled( q/TextUndo/, -scrollbars => 'se', -background...........);