# create object
my $q = Finance::Quote->new();

# retrieve stock quote
my %data = $q->fetch('NYSE', '^GSPC');
my %data1 = $q->fetch('NYSE', '^DJI');
my %data2 = $q->fetch('NYSE', '^FTSE');
my %data3 = $q->fetch('NYSE', '^HSI');
my %data4 = $q->fetch('NYSE', '^N225');
my %data5 = $q->fetch('NYSE', '^GDAXI');
my %data6 = $q->fetch('NYSE', 'GCQ09.CMX');
my %data7 = $q->fetch('NYSE', 'CLV09.NYM');
my %data8 = $q->fetch('NYSE', '^TNX');


# print price
print "Nikkei 225: " . $data4{'^N225', 'net'}, "\n";
print "Hang Seng: " . $data3{'^HSI', 'net'}, "\n";
print "DAX: " . $data5{'^GDAXI', 'net'}, "\n";
print "FTSE 100: " . $data2{'^FTSE', 'net'}, "\n";
print "S&P 500: " . $data{'^GSPC', 'net'}, "\n";
print "Dow Jones: " . $data1{'^DJI', 'net'}, "\n";
print "Gold: " . $data6{'GCQ09.CMX', 'net'}, "\n";
print "Oil: " . $data7{'CLV09.NYM', 'net'}, "\n";
print "US 10 Year Treasury Note: " . $data8{'^TNX', 'net'}, "\n";