sub update {$main->configure(-cursor=>"watch");
            $textbox->configure(-text =>"Updating Something...")
            find(\&check_file,$path);
            $main->configure(-cursor=>"arrow");
            $textbox->configure(-text =>"Status normal.");}