How do I check the exit code in Test::More

perl your_file.t
if [[ $? -gt 10 ]]; then
  echo "Wow, that's a lot of failures"
elif [[ $? -gt 0 ]]; then
  echo "Tests failed"
else
  echo "Success!"
fi

perl your_file.t || echo "Something bad happened."

use IPC::System::Simple qw(systemx EXIT_ANY);

my $exit_value = systemx( EXIT_ANY, 'mytest.t' );

use IPC::System::Simple qw(systemx);

systemx( 'mytest.t' );  # Run this command successfully or die.