Select Code to Download

 $exp->log_file(\&formatoutput);
 $exp->send("$CAT /etc/passwd\n");
...
     print"${input}\n\n";
   }
}

/

...
root:x:0:1::/:/sbin/sh daemon:x:1:1::/: bin:x:2:2::/usr/bin: sys:x:3:3
+::/: adm:x:4:4:Admin:/var/adm: lp:x:71:8:Line Printer Admin:/usr/spoo
+l/lp: uucp:x:5:5:uucp Admin:/usr/lib/uucp: nuucp:x:9:9:uucp Admin:/va
+r/spool/uucppublic:/usr/lib/uucp/uucico listen:x:37:4:Network Admin:/
+usr/net/nls: nobody:x:60001:60001:Nobody:/: noaccess:x:60002:60002:No
+ Access User:/: nobody4:x:65534:65534:SunOS 4.x Nobody:/: fast:x:204:
+1:FastTrack Server:/web:/bin/sh postfix:x:100:1:postfix:/dev/null:/bi
+n/false vscan:x:1001:10:Amavis User:/usr/local/encap/amavis-perl-11:/
+bin/sh sshd:x:22000:22000:SSHD privsep User:/var/empty:/bin/false

$