First, don't use Test. Use Test::More. Test's ok() function is horrifyingly bad.

• ok($x) means "Make sure $x is true"
• ok($x,$y) means "Make sure $x is equal to $y"
• ok($x,/$z/) means "Make sure $x matches /$z/"

This means that you can NOT just change "use Test" to "use Test::More".

Second, don't use h2xs any more. Use Module::Starter.