%new_db = (1 , 'gedit-2.2.2-i386-1.tgz',
 			2 , 'ppp-3.4.1-i386-2.tgz');



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"
	}
}