my @extList = @ARGV;
  
@extList = ('pl', 'pm') if ! exists $extList[0];