Add this on the line before you call the modules:

BEGIN {
    unshift @INC, $1 if $0 =~ m!(.*[/\\])!;
}
[download]