##### Functions #####

###Clear Function###
sub clear
{
    <$canvas -> itemconfigure('all', -fill => "white");
}


MainLoop();