#!/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);
[download]

ok, you dropped an important part and you had a couple of typos also. Like that it works:

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

my $directory='C:\dev\perl';
my $size=0;
my $file;

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


push(@dirs,$directory);     # add  INITIAL  directory 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)
    {
        if (-d "$dir/$file") {
            push(@dirs, "$directory/$file");     # if this is a dir ad
+d it to an array
        }
        if (-f "$dir/$file") {            # only if it a file do your 
+size stuff
            $size=(-s "$dir/$file");
            print "$dir,$file,$size";
            print "\n";
        }
    }
};

#closedir(DIRHANDLE);
[download]


see comments in code ...
pelagic