my $errFile = 'mount.err';
my $stdout = qx("mount $device $dir 2>&1");
if ($?)
{
   printf "mount error code ", $?>>8, " $stdout";
}