#!/usr/bin/perl -w

use strict;
use Finance::Quote;

my $q = Finance::Quote->new();
my %data = $q->fetch('usa', 'GOOG');
print $data{'GOOG', 'price'} . "\n";

Hackszine.com: Simple stock quote grabbing with Perl