How Can I use a socket like telnet?

locked_user mr_leisure has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How Can I use a socket like telnet? by ChOas (Curate) on Dec 21, 2000 at 19:16 UTC
Use Net::Telnet From the doc: `use Net::Telnet (); $t = new Net::Telnet (Timeout => 10, Prompt => '/bash\$ $/'); $t->open("sms.server.inter.net"); $t->login($username, $passwd); @lines = $t->cmd("sms.pl-msg=$opt{msg} -num=123456789"); print @lines;` [download] Bye!	[reply] [d/l]

Replies are listed 'Best First'.

Re: How Can I use a socket like telnet?
by ChOas (Curate) on Dec 21, 2000 at 19:16 UTC

        use Net::Telnet ();
        $t = new Net::Telnet (Timeout => 10,
                              Prompt => '/bash\$ $/');
        $t->open("sms.server.inter.net");
        $t->login($username, $passwd);
        @lines = $t->cmd("sms.pl-msg=$opt{msg} -num=123456789");
        print @lines;
[download]

[reply]
[d/l]