#!/usr/bin/perl

use warnings;
use strict;

my $dir = 'c:/Perl';

opendir DIR_A, $dir
  or die $!;
  
while(my $job = readdir(DIR_A)){
  print "$job\n";
}

__DATA__
---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
.
..
bin
Desktop.ini
eg
html
lib
myperl
site
Tidy

> Terminated with exit code 0.