#!/usr/bin/perl
use Expect;

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