FWIW, I used Sys::Filesystem to get mount points:

#!/usr/bin/perl -l

use strict;
use warnings;
use Sys::Filesystem;

my $drive = Sys::Filesystem->new();
my (@drives) = $drive->filesystems();
foreach  (@drives) {
    printf("%s \n",
        $drive->mount_point($_),
    );
}
[download]