perl -MImager::GIF -le 'for (keys %INC) { print $INC{$_} if /GIF\.pm/ }'