For finding files in a given directory (or set of directories) it's a good idea to use one of the File::Find modules such as File::Find::Rule or File::Finder e.g

  use File::Find::Rule;

  my($ext, $dir) = qw( .{ext,wav,swf} /home/user/files );
  for(find(file => name => $ext, in => $dir)) {
    ## operate on file here
  }
[download]