#!/usr/bin/perl -w
#!C:\Perl\bin\perl -w

my $directory='/data/input/data.01.29.2004-15:34:19/content';
my $size=0;
my $file;

#opendir(DIRHANDLE, $directory) or die "couldn't open $directory : $!\n";
#my@files = grep(!/^\.\.?$/,readdir(DIRHANDLE));


    push(@dirs,$directory); 	# add an element to an array
    foreach $dir (@dirs)	# loop through the elements of an array
    {
        opendir(DIR,"$dir") || die "opendir $dir failed";
        my@list = grep(!/^\.\.?$/,readdir(DIR));
        closedir(DIR);
    
	foreach $file (@list)
	  {
	    $size=(-s "$dir/$file");
	    print "$directory,$file,$size";
	    print "\n";
	  }
    };

#closedir(DIRHANDLE);