use strict;

use constant RATES => {
	'Austrian schilling'	=> 13.76,
	'Belgian franc'			=> 40.3399,
	'Dutch guilder'			=> 2.20371,
	'Finnish markka'		=> 5.94573,
	'French franc'			=> 6.55957,
	'German mark'			=> 1.95583,
	'Greek drachma'			=> 340.75,
	'Irish punt'			=> 0.787564,
	'Italian lira'			=> 1936.27,
	'Portuguese escudo'		=> 200.482,
	'Spanish peseta'		=> 166.386
};

sub toEuro
{
	my ($currency,$amount) = @_;
	
	if(exists(RATES->{$currency}))
	{
		return RATES->{$currency} * $amount;
	}
	return;
}

sub toCurrency
{
	my ($currency,$amount) = @_;
	
	if(exists(RATES->{$currency}))
	{
		return $amount / RATES->{$currency} ;
	}
	return;
}

# Test output :)

print toEuro('French franc',10);
print "\n";
print "\n" . toCurrency('French franc',toEuro('French Franc',10));