test.pl

#!/usr/bin/perl
use Mojo::Base -strict;
use Mojo::UserAgent;

use Data::Dumper;


my $ua = Mojo::UserAgent->new(max_redirects => 10);
my $url = 'http://www.supermicro.com/products/motherboard/Xeon/C600/X10SRi-F.cfm';
my $dom = $ua->get($url)->res->dom;
my @foo = $dom->find('td.description')
  ->grep(sub{ $_->parent->at('td')->all_text eq 'IPMI' })
  ->[0] # take the first match, assume there's only one
  ->find('li')
  ->map('text')
  ->to_array;


print Dumper \@foo;
for my $line (@foo) {
  chomp($line);
  print "$line\n";
}