#!/usr/bin/perl
use strict;

my(@t1)=dirarray("test1"); #get everything
my(@t2)=grep !/^\./, dirarray("test2"); #get everything but dot files

sub dirarray
{
    my($dir)=@_;
    my $dh;
    opendir($dh, $dir) or die "$0: Cannot open $dir for listing: $!\n";
    my(@files)=readdir($dh) or die "$0: Can not list files in $dir: $!\n";
    return(@files);
}