1 2 3 4 5 6 7 8
#!/usr/bin/env perl use strict;use warnings;use Log::Any::Adapter Stdout => ( log_level => 'debug' );use App::XScreenSaver::DBus; $|++;App::XScreenSaver::DBus->new->run;