# using OUT parameters
run_test(params => \%params, filename => 't/foo/bar',
         cleanup => sub { $_[0] =~ s/foo/bar/ });

# not using OUT parameters
run_test(params => \%params, filename => 't/foo/bar',
         cleanup => sub { my $var = shift; $var =~ s/foo/bar/; $var });