print $chan2 "su $user2 \n";
        print $chan2 "$pass2 \n";