http://www.perlmonks.org?node_id=971614


in reply to List drives in linux using Perl

How about `cat /proc/partitions` and go from there?