sub quit {.
 print "\e[0m$cls\n";
 sleep 1;
 print "\n\t\t greetinx to all the geeks out there :) !\n$on\n";
 exit;
}