[noname]

#!/usr/bin/perl
$hdd = $ARGV[0];
open (F,"</proc/mounts") or die "error $!\n";
@drive = grep(/$hdd/,<F>);
$drive[0] =~ s/^.*(rw|ro).*$/$1/;
print $drive[0];

это так для примера , можно через http://search.cpan.org/~nicolaw/Sys-.../Filesystem.pm

и т.д.