#!/perl
use strict;
use lib qw(/path/to /another/pathto);
use diffrent;
use something;

something::todo(arg1,arg2);
diffrent::todo(arg3,arg4);