#!/usr/bin/perl

use warnings;
use strict;

my $dh, $dir = "/home/msnyder/bin/etc_copy/";
my $dh;
opendir($dh, $dir) or die "Unable to open directory $dir: $!.";

my @files = grep -s $_ < 1000, readdir($dh);

foreach (@files) {
    print $_ . "\n";
}

##</code><code>##

foreach (readdir($dh)) {
   my $filesize = -s $_;
   print $_ . " " . $filesize . "\n";
}