Usually you should use one of the Getopt:: modules. Here's the solution with Getopt::Long (untested):

use Getopt::Long;
GetOptions(\%opt, "d=s", "i=s") or die "usage...";
# the options are now in $opt{d} and $opt{i}
[download]