There are several things one could point out to you namely:

• Use <code> </code> around your code
• use warnings;
  use strict; in your code
• Your open function should use the 3 arguments option
• Change your C/C++ for type. Use perl's like so:  foreach () {...}
  OR for () {...}
• Lastly, instead of using system(..) or backticks `` or qx/../
  use module File::Copy qw/move/ It comes installed with your Perl, for easy portability