open (INPUT, "data") || die "couldn't open the file!";

   foreach $line  (<INPUT>) {
    ($SERVER, $Drive, $SPACE) = split(/:/,$line);
     
   }

   close(INPUT);