#!/usr/bin/perl

use strict;
use warnings;

my $command = 'qdbus org.kde.Solid.PowerManagement /org/kde/Solid/PowerManagement org.kde.Solid.PowerManagement.hibernate';

system($command);

exit 0;


#!/usr/bin/perl

use strict;
use warnings;

my $command = 'qdbus org.kde.Solid.PowerManagement /org/kde/Solid/PowerManagement org.kde.Solid.PowerManagement.suspend';

system($command);

exit 0;