$ perl inactive.t
1..2
ok 1 - Handle is inactive
not ok 2 - Result is undef
#   Failed test 'Result is undef'
#   at /tmp/inactive2.t line 16.
#          got: 'ARRAY(0x2c41050)'
#     expected: undef
# $VAR1 = [];
# DBI 1.643
# Looks like you failed 1 test of 2.