# test_v1.pm package Foo; use HTTP::Response; sub get { return HTTP::Response->new(500); } # Add more packages ad libidum 1;