Hi,

Or you could either use opendir function to open up the folder in question and then, get each of the file with readdir function to "work" on like so:

use warnings;
use strict;

opendir my $dh, $ARGV[0] or die "can't open directory: $!";
while ( readdir $dh ) {
    chomp;
    next if $_ eq '.' or $_ eq '..';
    #..... get each file to work on ....
}
closedir $dh or die "can't close directory: $!";

### or use File::Find like so:

use File::Find qw(find);
find( sub { print $_, $/ }, $ARGV[0] );
[download]

The Anonymous subroutine, could be used to do what you want on each of the file in the folder.
Please check the following for more info:

• perldoc -f opendir
• perldoc -f readdir
• perldoc File::Find

Hope this helps.