#!/usr/bin/perl -w

use strict;
use Calc::Euro;

my $eurocalc = Calc::Euro->new('NLG');
print $eurocalc->to_national(1), "\n"; # 2.20371

my $anothercalc = $eurocalc->clone();
print $eurocalc->to_national(1), "\n"; # 2.20371

$eurocalc = Calc::Euro->new('BEF');
print $anothercalc->from_euro($eurocalc->to_euro(20)), "\n";
# approx 1

my $foo = Calc::Euro->new(1.5);
print $foo->to_national(2), "\n"; # 3