Select Code to Download

 <DIR>          .
 <DIR>          ..
...
 <DIR>          Dir2
 <DIR>          Dir3
 <SYMLINKD>     temp [Dir1]

my @dirs = <*>;

...
{
   print "$symlnk\n" if (-l $symlnk);
}