#!/usr/bin/perl
run sub {
	my $this=shift;
	return $this, "1", $this->super(@_);
}
