use strict;
my $Q;

sub return_with_object {
    unless (defined($_[0]) && 
	  (ref($_[0]) eq 'ModuleNAME' || UNIVERSAL::isa($_[0],'ModuleNAME'))
	    )
{
	$Q = ModuleNAME->new unless $Q;
	unshift(@_,$Q);
}
    return wantarray ? @_ : $Q;
}