unshift @INC, sub {
	my $module = $_[1];
	if ($module eq 'Foo.pm') {
		$INC{$module}++;
		my $line = 0;
		return sub {
			unless ($line++) {
				$_ = "1;\n";
				return 1;
			}
			return 0;
		}
	}
	return;
};

require Foo;  # no-op