scripts/xscreensaver-dbus


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;