#!/usr/bin/perl

use strict;

my $dsk;
my %DSK;
my $hdparm_cmd = '/sbin/hdparm';

if ( !-x $hdparm_cmd ) {
    exit;
}

if ( open my $FSTAB, '/etc/mtab' ) {
    while ( <$FSTAB> ) {
        if (($_ =~ /ext(?:2|3|4)/ || $_ =~ /reiserfs/)  && $_ =~ /hd.\d/) {
            /^(\S+)/;
            $dsk = $1;
            $dsk =~ s/\d*//g;
            $DSK{$dsk} = 1;
        }
    }
    close $FSTAB;
}

foreach $dsk ( sort keys %DSK ) {
    print "$dsk:\n";
    system $hdparm_cmd, '-q', '-u1', '-c1', '-q', '-A1', '-q', '-m16', '-q', '-d1', $dsk;
}