opendir(DIR, $ARGV[0]) || die "i died for no reason ;)\n";
 
foreach (readdir DIR){
  #repeat like above
  #watch out for defining the right path to dir and when looping re-type the fool path to your dir, like:
  # open (FILE, ">", "$ARGV[0]/$_") || die "i died for no reason ;)\n"
}