Perl/Tk saves your favourite tools

(source) The previous slide was more of a joke (you thought), but this is for real! I used system here instead of qx() because I am not interested in the output of shutdown.