помогите разобраться с actkbd

#!/usr/bin/perl -w
###===============================================================================
### standby_hibernate.pl
###===============================================================================

my $direction = shift();

if( $direction eq "standby" ){
print(`sudo -u magog qdbus org.kde.screensaver /ScreenSaver Lock`);
} elsif ( $direction eq "hibernate" ){
print(`sudo hibernate`);
}

225:key::/usr/local/bin/adjustBrightless.pl up
225:rep::/usr/local/bin/adjustBrightless.pl up
224:key::/usr/local/bin/adjustBrightless.pl down
224:rep::/usr/local/bin/adjustBrightless.pl down
172:key::/usr/bin/sudo -u magog /usr/bin/firefox
172:rep::sudo -u magog firefox
142:key::/usr/local/bin/standby_hibernate.pl hibernate
142:rep::/usr/local/bin/standby_hibernate.pl hibernate

152:key::/usr/local/bin/standby_hibernate.pl standby
152:rep::/usr/local/bin/standby_hibernate.pl standby

# Here is where you can put anything you need to start
# that there is not an init script for.

local_start() {
# This is a good place to load any misc programs
# on startup (use &>/dev/null to hide output)
gpm -m /dev/psaux -t ps2
actkbd -d /dev/input/event4 -D -l
# We should always return 0
return 0
}

local_stop() {
# This is a good place to unload any misc.
# programs you started above.

# We should always return 0
return 0
}