$ perl -MTest::Harness -e'runtests @ARGV' 808525.t
808525.t .. ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs
Result: PASS