. .. Dir1 Dir2 Dir3 temp [Dir1] #### my @dirs = <*>; foreach my $symlnk (@dirs ) { print "$symlnk\n" if (-l $symlnk); }