$main_new=$main->Button(-text=>"New",-command=>'newnote',
            -padx=>0,-pady=>0)->pack;

##</code><code>##

$main_new=$main->Button(-text=>"New",-command=>sub{newnote;},
            -padx=>0,-pady=>0)->pack;