initial checkin of perl scripts