BEGIN { use File::Spec; for (@INC) { if ( !ref $_ && -d $_ && !File::Spec->file_name_is_absolute($_) ) { $_ = File::Spec->rel2abs($_); } } }