Connaitre les montages de votre système

Quelle partition est utilisée pour quel montage et grâce à quel système de fichier ? Le module répondre à cette qeustion :

use Sys::Filesystem;

my $fs = Sys::Filesystem -> new();
my @fs = $fs -> filesystems();

foreach my $mount (@fs) {
        printf("%s\t%s\t%s\n",
                        $fs -> mount_point($mount),
                        $fs -> format($mount),
                        $fs -> device($mount));
}