You may want to look into the Tk family of modules for display and blanking out the screen. Also check out Term::Readkey to get user input.

"Sanity is the playground of the unimaginative" -Unknown