$telnet = `telnet $hostname `; $telnet -> waitfor('/Username: $/i');