OpenSUSE :: An Enigmatic Script Intended To Reactivate Computer?

a perl script that becomes active when the machine goes inactive (!) and executes an rtcwake command designed to spur the computer into action at a designated time so that cron tasks are performed. The script, which is given below and which originated at a Ubuntu forum, is not working, and so I am trying to understand it. Not being familiar with perl, I'm stuck at the line containing the test if(m/^s+boolean true/){ ...

Code:

#!/usr/bin/perl
my $cmd = "dbus-monitor --session "type='signal',interface='org.gnome.ScreenSaver', member='SessionIdleChanged'"";
while (<IN>) {
if (m/^s+boolean true/) {

[code].....