sub quit {
Title "Exit | You Are Now Leaving";

sleep 2;
my $byeresult = Win32::Sound::Play("SystemExit");
exit;
}
}