#!/usr/bin/perl -w
my $dir = "/home/test/folder";
opendir(BIN, $dir) || die "Can't open $dir: $!";
my @array = grep { -T "$dir/$_" } readdir BIN;

foreach $file (@array) {
$file = symlink ("/home/test/folder/$file","/home/folder/$file")
}