perl, misc script