Getting Hardware Information with Rex

gistfile1.pl

use Rex::Hardware;
use Data::Dumper;

user "root";
password "f00b4r";
pass_auth;

group myservers => "server1", "server2", "server3";

task "get-info", group => "myservers", sub {
   my %hw_info = Rex::Hardware->get(qw/ All /);
   say Dumper(\%hw_info);

   say "IP of eth0 is: " . $hw_info{Network}->{networkconfiguration}->{eth0}->{ip};

   my $hostname = run "hostname";
   say "The hostname is: $hostname";
};