#!/usr/bin/perl

open(FSTAB,"/etc/mtab");
while(<FSTAB>) {
        if (($_ =~ /ext3/ || $_ =~ /ext2/ || $_ =~ /reiserfs/)  && $_ =~ /hd.\d/) {
                /^(\S+)/;
                $dsk = $1;
                $dsk =~ s/\d*//g;
                $DSK{$dsk} = 1;
        }
}
close(FSTAB);

foreach $dsk (sort keys %DSK) {
        print "$dsk:\n";
                system("/sbin/hdparm -q -u1 -c1 -q -A1 -q -m16 -q -d1 $dsk");