ok( 1 == 2 ) or die;
ok( $foo eq $bar ) or die;
etc...