#!/usr/bin/perl


# To redirect the output of your program to a file called hw1.out, 
# run it with the following command:
#
#       -> ./hw1_1.pl > hw1_1.out
#
# You can then diff the results with my output with the following command:
#
#       -> diff ~stacia/ws05/hw1_1.out hw1_1.out
#
# If this command returns nothing, the two files are identical. Note that
# diff is sensitive to whitespace.

$prefix = "/home/faculty/stacia/ws05/data/metazoa/";
opendir(METAZOA,"$prefix") || die "Couldn't open dir: $!";
@ALL_FILES = readdir(METAZOA);
closedir(METAZOA);

foreach $file (@ALL_FILES){
	# your code goes here
}