Perl/Gtk device locker