in reply to How do I do an interactive rlogin in Perl?

You can use Expect: 
Expect->spawn("/usr/bin/rlogin -l $user $host");

[download]

In Section Seekers of Perl Wisdom