#!/usr/bin/perl
$somme = $ARGV[0];
$devise_depart = 'USD+United+States+Dollars';
$devise_arrivee = 'FRF+France+Francs';

open (LYNX, "/usr/bin/lynx -post_data -nolist http://www.xe.net/cgi-bin/ucc/convert<<FIN_REQUETE\ntimezone=Canada%2FEastern&Amount=$somme&From=$devise_depart&To=$devise_arrivee\n---\nFIN_REQUETE\n|");

while (<LYNX>)
{
    if (/United States Dollars[^\d]+([\d,.]+) FRF/)
    {
        ($change = $1) =~ tr/,./ ,/;
        print "Cela fait $change Francs Français\n";
        last;
    }
}
close (LYNX);