Not addressing your problem but you could save some typing when testing your $command.

...
    if ( $command =~ m{^(?:set|add|del)$} ) {
...
[download]

I hope this is of interest.

Cheers,

JohnGG