Help for this page
open(MNT,"mount $device $dir |") || die "Could not run mount : $!\ +n";
open(MNT,"mount $device $dir 2>&1 |") || die "Could not run mount +: $!\n";