my $pwmodule = use_first qw[Linux::Power Win32::Power];
my $power = $pwmodule::new();
$power->suspend();