dot perl code uses module