$ENV{COLUMNS}=4096;
my @array = `df -k`;

##</code><code>##

# Fix array:  If line is too short, append to previous line
{
   my @tmp;
   while (@array) {
      my $line = shift @array;
      $line .= shift @array if length($line)<50;
      push @tmp, $line;
   }
   @array = @tmp;
}