Ubuntu 10.04 PERL/BASH Lanch BASH CMD on Screensaver

#!/usr/bin/perl

my $cmd = "dbus-monitor --session \"type='signal',interface='org.gnome.ScreenSaver',member='ActiveChanged'\"";

open (IN, "$cmd |");

while (<IN>) {
    if (m/^\s+boolean true/) {
	system("qbittorrent");
    }
}