add test.pl

add test.pl for test