The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Sys::CpuLoadX;
use Test::More tests => 1;

my $load = Sys::CpuLoadX::get_cpu_load();
ok($load > 0 || $load eq "0.00", "cpu load on $^O is $load");