#!/usr/bin/perl
use strict;
use warnings;

my $dir = "/home/test/folder";
opendir(BIN, $dir) or die "Can't open $dir: $!\n";
my @array = grep { -f "$dir/$_" } readdir BIN;

foreach my $file (@array) {
   eval { symlink ("$dir/$file","$dir/../$file") }; # links to parent
   if ($@) {
      print "could not create symlink for $file\n";
   }
   else {
      print "success!\n";
   }
}