made the perl code use strict; use warning; acceptable.