## do same 'use's as above
printf "%s,%s,%s\n", dirname($_), basename($_), -s $_
  for find( file => in => '/data/input' );