#!/usr/bin/perl -w

use strict;
my $dir = "/scratch";
opendir(DIR, $dir)
        or die "Unable to opendir $dir: $!\n";
foreach my $file (readdir DIR) {
        print "file is at: $file\n";
}
closedir(DIR);