#!/usr/bin/perl -w

format DISKSPACE =
======================
|@<<<<<<<<<<<<<<<<<<<|
$FileSystem
|@<<<<<<<<<<<<<<<<<<<|
$kbytes
|@<<<<<<<<<<<<<<<<<<<|
$used
|@<<<<<<<<<<<<<<<<<<<|
$avail
|@<<<<<<<<<<<<<<<<<<<|
$capacity
|@<<<<<<<<<<<<<<<<<<<|
$Mounted_on
======================
.


sub df_total
{
  my @lines = split /\n+/, shift;
  open (DISKSPACE, ">spaceavail.txt") || die "Error opening file spaceavail.txt";
  for (@lines) {
    ($FileSystem, $kbytes, $used, $avail, $capacity, $Mounted_on) = split (/\s+/);
    write (DISKSPACE);
  }
  close (DISKSPACE)
}


my $result = `df -k`;
df_total($result);