my $tnet = Net::Telnet->new();
$tnet->open('192.168.2.1');
unless (fork)
{
  while (1)
  {
    print $tnet->getlines(Errmode => 'return');
  }
}

$tnet->waitfor('prompt#');
$tnet->put('text');