Perl library to perform actions when a screen saver start or stops