Select Code to Download

my $sqlserver = 'SERVERNAME';
my $sqldb     = 'DBNAME';
my $dbs       = "dbi:ODBC:Driver=SQL Server;Database=$sqldb;Server=$sq
+lserver;Trusted_Connection=yes";
my $dbhandle  = DBI->connect($dbs, undef, undef, {RaiseError => 1, Aut
+oCommit => 1}) or die DBI->errstr();