my @dirs = <*>;

foreach my $symlnk (@dirs ) 
{
   print "$symlnk\n" if (-l $symlnk);
}