perl scripts to use lcd