add 2 perl tests