#!/usr/bin/perl -w

use strict;
use Finance::Currency::Convert::Yahoo;

print "###############################\n";
print "#   Tipos de Moedas\n";
print "###############################\n";

##################################
# Mostrar o Tipo de Moedas
##################################
my %moedas = (
		Portugal => 'PTE',
		Euro => 'EUR',
		Inglaterra => 'GBP',
		'Estados Unidos'  => 'USD',
		Espanha => 'ESP',
		Brasil => 'BRL'
	);
print "\n";
while ( my ($key, $value) = each(%moedas) ) {
	print "$key => $value\n";
}

##################################
# Receber Parametros do utilizador
##################################

print "\n\nConverter de: ";
my $de = <STDIN>;
chomp($de);
print "Para: ";
my $para = <STDIN>;
chomp($para);
print "Valor: ";
my $value = <STDIN>;
chomp($value);

$Finance::Currency::Convert::Yahoo::CHAT = 0;
$_ = Finance::Currency::Convert::Yahoo::convert($value,$de,$para);

print defined($_)? "O Resultado da Conversao para $para e: $_\n" : "Erro na ligacao... :(\n";
exit;


# Script Name: Conversor de Moedas 
# Written by: Filipe Dutra <filipe.dutra@gmail.com>