#!/usr/bin/perl

use strict;
use warnings;

for my $d (qw( / /bin /sbin /lib /usr /usr/bin /usr/sbin /usr/lib /proc /sys /run /tmp /var/run /var/tmp )) {
    print "$d: on device ",(lstat($d))[0];
    if (-l $d) {
        print " (symlink to ",readlink($d),")";
    }
    print "\n";
}