Да приемем, че изграждате скрипт на Perl, за да преминете през файлова система и да запишете какво намира. Докато отваряте дръжки на файлове, трябва да знаете дали имате работа с действителен файл или с директория, която третирате по различен начин. Вие искате да глоба директория, така че можете да продължите рекурсивно да анализирате файловата система. Най-бързият начин да кажете на файлове от директории е да използвате вградения PerlОператори за тестване на файлове. Perl има оператори, които можете да използвате, за да тествате различни аспекти на файл. Операторът -f се използва за идентифициране на редовни файлове, а не на директории или други видове файлове.
Първо, вие създавате две струни: един сочи към файл и един насочва към директория. След това тествайте $ име на файла с -f оператор, който проверява дали нещо е файл. Това ще отпечата "Това е файл." Ако опитате оператора -f в директорията, той не се отпечатва. След това направете обратното за $ directoryname и потвърдете, че това всъщност е директория. Комбинирайте това с
глобална директория за да решите кои елементи са файлове и кои са директории: