Take a look at opendir and readdir, or File::Find if you want to get fancy. :-)

Update: A code example:

#! /usr/bin/perl

use strict ;
use warnings ;

opendir MYDIR, '.' or die $! ;
my @allfiles = grep { $_ ne '.' and $_ ne '..' } readdir MYDIR ;
my @files    = grep { !-d } @allfiles ;
my @dirs     = grep {  -d } @allfiles ;

print "Current directory contains " . @files . " files and " .
      @dirs . " directories.\n" ;
[download]

opendir (THEDIR, $theDir) || die "Could not read $theDir - $!\n";

my ($filesFound, $dirsFound);
for my $fileFound (readdir(THEDIR)) {
   next if ($fileFound eq '.' || $fileFound eq '..');
   if (-d $fileFound) {
      # we found a directory...
      $dirsFound++;
   } else {
      # looks like it's a file...
      $filesFound++;
   }
}

if ($filesFound) {
   print "Found $filesFound files in $theDir.\n";
} else {
   print "No files were found in $theDir.\n";
}

if ($dirsFound) {
   print "Found $dirsFound directories in $theDir.\n";
} else {
   print "No directories were found in $theDir.\n";
}
[download]

   my @files    = grep { !-d } @userfiles ;
   my @dirs     = grep {  -d } @userfiles ;
[download]