# you add to 22http.t, after the last use statement
BEGIN {
    for my $k (sort keys %INC ){
        my $kk = $k;
        $kk =~ s/.pm$//;
        $kk =~ s~/~::~g;
#        print join "\n", $k, $INC{$k},"\n";
        printf "%8s %s\n", UNIVERSAL::VERSION($kk), $kk;
    }
    print "\n";
}

__END__

1..5
    5.67 AutoLoader
         C:::strawberry::perl::lib::auto::Storable::autosplit.ix
    1.08 Carp
         Config
         Config_heavy.pl
  3.2701 Cwd
    1.08 DynaLoader
     1.1 Errno
    5.62 Exporter
    5.62 Exporter::Heavy
    1.06 Fcntl
  3.2701 File::Spec
  3.2701 File::Spec::Unix
  3.2701 File::Spec::Win32
    2.01 FileHandle
   5.818 HTTP::Daemon
   5.810 HTTP::Date
   5.818 HTTP::Headers
   5.817 HTTP::Headers::Util
   5.818 HTTP::Message
    0.23 HTTP::Proxy
         HTTP::Proxy::Engine
         HTTP::Proxy::FilterStack
         HTTP::Proxy::HeaderFilter
         HTTP::Proxy::HeaderFilter::standard
   5.818 HTTP::Request
   5.818 HTTP::Response
   5.817 HTTP::Status
 1.23_01 IO
    1.14 IO::File
    1.27 IO::Handle
     1.1 IO::Seekable
    1.17 IO::Select
 1.30_01 IO::Socket
    1.31 IO::Socket::INET
    1.23 IO::Socket::UNIX
   5.819 LWP
   5.810 LWP::ConnCache
         LWP::Debug
   5.810 LWP::MediaTypes
         LWP::MemberMixin
   5.819 LWP::Protocol
   5.819 LWP::UserAgent
    1.01 SelectSaver
    1.80 Socket
    2.18 Storable
    1.06 Symbol
    1.11 Sys::Hostname
    0.84 Test::Builder
    0.84 Test::Builder::Module
    0.84 Test::More
  1.1901 Time::Local
    1.37 URI
    3.29 URI::Escape
    0.34 Win32
    0.08 XSLoader
    1.03 blib
    1.13 constant
    1.00 integer
    1.06 overload
    1.04 strict
         t::Utils
    1.01 vars
    1.06 warnings
    1.01 warnings::register

ok - Got an answer (200)
ok - Got an answer (301)
ok - Got an answer (404)
ok - Served the correct number of requests
ok - Got an answer (500)

##</code><code>##

ok 1 - 200.xml => 200
# hangs for a few minutes
not ok 2 - 220.xml => 220
#   Failed test '220.xml => 220'
#   at t\90diveintomark.t line 93.
#          got: '500'
#     expected: '220'
# hangs for a few minutes here too
#   Failed test '320.xml => 320'
#   at t\90diveintomark.t line 93.
#          got: '500'
#     expected: '320'