in reply to Perl DBI -- SQL Server Error

If you installed a default instance rather than named instances then try
my $host = 'SRINI-PC\MSSQLSERVER';
poj

In Section Seekers of Perl Wisdom