Error connecting to JDBC using perl

[alluri1123]

I am using the following code and i get the below error

use DBI; 
use DBD::JDBC; 
 
my $url="JDBC:gfsql://cqserver=fiappl03itf:30305"; 
my $hostname="fiappl03itf.fmrco.com"; 
my $port=30305; 
my $dsn ='jdbc:gfsql'; 
my 
$dbh= DBI->connect("DBI::$dsn;hostname=$hostname;port=$port;url=$url;jdbc_character_set=ASCII") or 
 
die "Couldn't connect to database: " . DBI->errstr; 
 
$sth = $dbh->prepare("select cusip,source from TT_VIEW"); 
$sth->execute(); 
while ($row = $sth->fetch()) { 
print $row; 
} 
 

I am getting the below error.

Can't connect to data source jdbc:gfsql;hostname=fiappl03itf.fmrco.com;port=303 05;url=JDBC:gfsql://cqserver=fiappl03itf:30305;jdbc_character_set=ASCI I, no database driver specified and DBI_DSN env var not set at jdbc_conn.pl line 16

[KevinADC]

already replied to on other forum