Dunia cyber emank syerem… hihihihihihi…atut 
walaupun ga punya kunci pintu jendela terbuka pun jadi…. kayaknya kata² itu pas untuk script backdor berikut…:
#!/usr/bin/perl
use IO::Socket;
#
#/home/programing$ …
HiHiHiHiHiHi…dikasi tols temen nich…monggo yang mau nyoba…. 
#!/usr/bin/perl
# phpMyAdmin Checker
# Author: mHc@MimiZu (Re Edit) #
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
my ($add,$iplist,$url,@path,@raw_data);
print q(
phpMyAdmin Checker by mHc
);
if(@ARGV !=1) **
print “Usage: perl phpmyadmin.pl e.g. perl phpmyadmin.pl iplist.txt”;
exit;
}
$iplist = shift;
@path = (
“/phpMyAdmin/”,
“/PMA/”,
“/admin/”,
“/dbadmin/”,
“/mysql/”,
“/myadmin/”,
“/phpmyadmin2/”,