Select Code to Download

#!/usr/bin/perl

...
    }
    print "\n";
}

$ perl lstat.pl
/: on device 1795
...
/var/run: on device 1795 (symlink to /run)
/var/tmp: on device 1795
$

#!/usr/bin/perl

...
    }
    print "\n";
}

$ perl stat.pl
/: on device 1795
...
/var/run: on device 105 (followed symlink to /run)
/var/tmp: on device 1795
$