eval {
   if ( timeout_call( 10, sub { $ret = system($mnt_cmd); } )
#     1             2                                      2 ? 
   {
      logit("Couldn't get to $smbdest, and couldn't mount it running $mnt_cmd");
      return 1;
#  ?? missing '}'
}                 ## <<< missing ;