new_packages($fcount,%new_db);

sub new_packages {
	my %packages = $_[1];
	print "Found $_[0] packages for download: $_\n" if ($fcount > 1);
	print "Found $_[0] package for download: $_\n" if ($fcount == 1);
	print "Which one would you like to install?:\n";
	foreach my $key (keys (%packages)) {
		print "$key) $packages{$key} \n"
	}
}