Put the following in your .pl

use Cwd            qw( realpath );
use File::Basename qw( dirname );

use lib dirname(realpath($0));
[download]

Cwd, File::Basename, lib