1 2 3 4 5
#! /usr/bin/perl use OpenSSL::Test::Simple; simple_test("test_wp", "wp_test", "whirlpool");