Thankyou this was exactly right!

When i run:

#!/usr/bin/perl
use Expect;

my $exp = Expect->spawn('./test', undef)
        or die "Cannot spawn ./test.pl $!\n";
print $exp->expect;
[download]

Against that C program it prints "Is a tty!".

Thanks a lot for your help.

Neil Archibald