my $path = 'C:\Documents and Settings\Administrator\Desktop'; opendir(DIR,$path) or die $!; while (my $File = readdir DIR) { print "$File\n"; } closedir(DIR);