С Sys :: Info :: Device :
If DEVICE_ID has the value of available, then the names of the available devices will be returned.
Почему $info->device('available'); не возвращает никаких устройств, если есть хотя бы процессорное устройство?
#!/usr/local/bin/perl
use warnings;
use 5.014;
use Sys::Info;
my $info = Sys::Info->new;
my @available = $info->device('available');
say 'Available devices: ', scalar @available;
my $cpu = $info->device( 'CPU' );
say 'Number of cores: ', $cpu->count;
Выход:
Доступные устройства: 0
Количество ядер: 2