my $j=...

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Finance::YahooQuote;
use DBI;
use DBD::mysql;
use DBIx::Simple;
use SQL::Abstract;