Update test.pl

Change to remove some warning messages when use perl -wc to check the file.