sub setCountry {

	my $myMP3 = $_[0];	
	my $myCountry = $_[1];
	my $objMP3 = MP3::Tag->new($myMP3);
	$objMP3->get_tags();

	if (exists $objMP3->{ID3v2})
	{
	
		my $objMP3ID3v2 = $objMP3->{ID3v2};
		my ($tmpStrAlbumArtist, $tmpStrLong) = $objMP3ID3v2->get_frame("TPE2");
		
		if (defined $tmpStrAlbumArtist)
		{
			if ($tmpStrAlbumArtist eq $myCountry)
			{
				print "was already $tmpStrAlbumArtist ... no update\n";
			}
			else
			{ 
				print "Tag exists but is different than expected = $tmpStrAlbumArtist  ...  no update\n";
			}
		}
		else
		{
			$objMP3ID3v2->add_frame("TPE2", $myCountry);
			my $result = $objMP3ID3v2->write_tag();
			
			if ($result == 1)
			{
				print "Updated successfully to $tmpStrAlbumArtist ...\n";
			}
			else
			{
				print "Error while updating ...\n";
			}
		}
	}
	else
	{
		print "No existing ID3V2 tag ...\n";
	}
	
	$objMP3->close();
}