Shell Programming and Scripting

		my $dbh = DBI->connect( 'dbi:Informix:standard@db_name', 'user', 'password', {
			PrintError=>1,
			RaiseError=>1 });

		$sth = $dbh->prepare("
			SELECT prod_code, lot_code, actual_qty
			FROM wattrn
			WHERE doc_code = ? ");	# get all of my needed information from the DB
		$sth->execute($doc_code);

		while ( $array_ref = $sth->fetchrow_arrayref ) { 	#feed the return results to an array
			push @jackpot, [ @$array_ref ];
		}
		$dbh->disconnect();