A perl script I wrote for organizing my downloads