I don't have the module and I don't need it but I did notice this line:

if ($dir eq exit)
[download]

I think you need quotes around exit:

if ($dir eq 'exit')
[download]

I'd also consider doing a while(<STDIN>) style construct but thats just a personal preference.

You are also missing a final curly at the bottom. You would notice these errors more easily if you indented your code a little better :)