open(IN, "< input.csv") or die("Couldn't open input.csv\n"); 
open(OUT, "> output.csv") or die("Couldn't open output.csv\n"); 

while (<IN>) {
chomp;
  #Displays total size of specified path (total includes subfolders)
  print "Walking $_\n";
[download]

#stuff you took out... Are you using File::Find?

}
print "\n\tOutput created.\n";
close(OUT);
[download]

-Waswas