# 10 second time limit for one of our conditions to be met
set timeout 10

eval spawn "/usr/bin/perl" "-MCPAN -e shell"

expect {
    "Are you ready for manual configuration?" {
        send "no\r"
    }
    "cpan>" {
        send "quit\r"
        expect eof
        exit
    }
    timeout {
        puts "\nWe ran out of time\n"
        exit
    }
    eof {
        puts "\nOh noes, unexpected EOF\n"
        exit
    }
}

# This will only be reached if a default configuration keypress was required
expect "cpan>"
send "quit\r"