#! perl -w

use strict;

my $line = 'C:\08\00004DC4.013';

opendir MYDIR, $line 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" ;

print "@allfiles\n";