a little change to perl