this is a perl demo