$pattern = $ARGV[0];
@list = `grep $pattern $HOME/.bash_history`;
@list = reverse @list;
foreach $command (@list)
	{
	chomp $command;
	print "$command (Y/N)?";
	$choice = <STDIN>;
	if ($choice =~ 'Y' || $choice =~ 'y')
		{
		$foo = `$command`;
		print "$foo\n";
		exit;
		}
	}