Just a minor note: your way to iterate thru different arguments by index is rather cumbersome

just do

~$ perl -E 'foreach $arg (@ARGV) { say split /\//,$arg }' 1/2 a/b/c
12
abc
[download]

And plz consider using strict and warnings!