or something more concrete along the lines of 1nickt's suggestion (untested of course):

           } else { print "login failed\n" }
        } else { print "eval failed: $@\n" } #<<< EDIT: eval's error i
+n $@ (and not in $_)
    } else { print "waifor failed\n" }
} else { print "$intcount>0 etc false\n" }
[download]