#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
my $q = CGI->new();

print $q->header();

my @var = `ssh root\@lindpi001 \"df -hP | tr -s ' '\"`;
print "<h1>Head</h1>";

my $varlength = @var;

print "<h2>Length $varlength</h2>";

for (my $i = 0; $i < $varlength; $i++) {
        print "\n<b>$var[$i]</b>";
}