#!/usr/bin/perl

use Soap::Lite;

my $price =
  SOAP::Lite
    -> service('http://xmethods.net/sd/StockQuoteService.wsdl')
    -> getQuote(shift||die "Give me a stock symbol!\n");

printf "\n\t\$%.2f\n\n", $price;