#! /usr/bin/perl
my $cp;
for my $arg ( @ARGV ) {
	next if $arg =~ /^-/;
	my $cpv = `portageq best_version / $arg`;
	chomp $cpv;
	$arg = $cp = `python -c 'import portage; print "/".join( portage.catpkgsplit( "$cpv" )[0:2] )'`
}
defined( $cp ) or die( "couldn't find package" );
system( "echo \"$cp\" >> /etc/portage/package.keywords" );
system( "emerge ". join( " ", @ARGV ) );