CTHULHU foreach (@fs_list) { my ($up) = $_->{usepercent} =~ m/(\d+)\%/; print qq(\t\t
\n); print qq(
); print qq(
$_->{fsname}
); print qq(percent); print qq(
); print qq(); print qq(
); print qq(
); print qq(); print qq($_->{availsize}); #print qq() . $_->{avilsize} =~ m/\d+(\w+)/ . qq(); print qq(); print qq( / ); print qq(); print qq($_->{totalsize}); #print qq() . ($_->{totalsize} =~ m/\d+(\w+)/) . qq(); print qq(); print qq(
); print qq(
); print qq(
); } print << "CTHULHU";