BEGIN {
	use overload;
	use Data::Dumper;
	overload::constant 'q' => sub {
		print Dumper \@_;
	};
}
qq(echo aaa);
qx(echo aaa);