sub tryagain5 {
    my ($messagetouser) = @_;
    my $ans = callandresponse($messagetouser);
    my $count=1;

    # DEBUG
    print "ans is <<$ans>>\n";
    print "count is <<$count>>\n";

    while ($count < 5 and $ans =~ /^\s*\n/) {
        $count++;
        $ans = callandresponse ($messagetouser);
    }
    if ($ans =~ /^\s*\n/) {
        return 0;
    }
    else {
        return $ans;
    }
}