Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl

...
  
  
}
```

Select or download this

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