open(MNT,"mount $device $dir |") || die "Could not run mount : $!\n";

##</code><code>##

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