#*****************************************************************#
  # SYSTEMADMINISTRATION:                                           #
  # LINUX                                                           #
  #*****************************************************************#
  

  Prozessorauslastung:

  open(LOAD, "/proc/loadavg") || return ();
  @load = split(/\s+/, );
  close(LOAD);
  my $CPU15 = $load[2];



  Belegter Speicherplatz:

  my $out = `df -k "/dev/hda7"`;
  $out =~ /^.* (\d{1,3}%)/i
  my $DISK = $1;



  #*****************************************************************#
  # Literaturhinweis                                                #
  #*****************************************************************#  
 

Perl for System Administration Managing multi-platform environments with Perl By David N. Blank-Edelman O'Reilly 2000