$mw-> Button (-text =>'Get Statistics',
-command =>[ \&get_statistics, 'datafile.name' ]
)->p
+lace(-x=>320, -y=>35);