Just for kicks, this seems to work as well:

use POSIX qw(uname);
use lib sprintf "/usr/local/perl/modules/%s/%s", (uname)[0,2];
[download]

-Blake