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

my $directory='/data/input';
my $size=0;
my $file;

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

foreach $file (@files)
 {
   $size=(-s "$directory/$file");
   print "$directory,$file,$size";
   print "\n";
 }
closedir(DIRHANDLE);