Как на Perl'е узнать количество/имена субдиректорий/файлов в директории?

[tmp@tmp tmp]$ ls -la

итого 336

drwx------ 2 tmp tmp 4096 Мар 1 17:01 .

drwx------ 57 tmp tmp 4096 Мар 1 16:58 ..

-rw------- 1 tmp tmp 324733 Мар 1 15:56 extfs9UT5pe

-rwxr-xr-x 1 tmp tmp 52 Мар 1 17:01 tmp.pl

[tmp@tmp tmp]$ cat ./tmp.pl

#!/usr/bin/perl



@ls=`ls -la `;

print "@ls";

exit 0;

[tmp@tmp tmp]$ ./tmp.pl

итого 336

drwx------ 2 tmp tmp 4096 Мар 1 17:01 .

drwx------ 57 tmp tmp 4096 Мар 1 16:58 ..

-rw------- 1 tmp tmp 324733 Мар 1 15:56 extfs9UT5pe

-rwxr-xr-x 1 tmp tmp 52 Мар 1 17:01 tmp.pl

[tmp@tmp tmp]$

[tmp@tmp tmp]$ cat ./tmp.pl

#!/usr/bin/perl



opendir(ddd, "./");

@ls=readdir(ddd);

print "@ls";

exit 0;[tmp@tmp tmp]$ ./tmp.pl

. .. extfs9UT5pe tmp.pl[tmp@tmp tmp]$



З.Ы. Надеюсь понятно :-)

Не понятно.. Комментов мона?

print `ls`