Example 2: code (cont.)

• sub price

• { my( $twig, $price)= @_;

• my $value= $price->text;

• if( $value=~ /^\$(.*)$/) { my $dollar_value= $1; my $euro_value= sprintf( "%5.2f", $dollar_value / $RATE); $price->set_text( $euro_value); $price->set_att( currency => "EUR"); } else { die "wrong dollar value '$value'\n"; }

• $price->print;

• }