#!/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;