dbi:ODBC not registering program_name when connected to MS SQL 2005

[praveen vejandla]

I am using dbi:ODBC to connect to SQL 2005 server. program_name is not getting 
registered at SQL Server side.

my $dbh = DBI->connect("dbi:ODBC:server1","user","****");

But when I use dbi:FreeTDS, it is registering the program_name properly.

my $dbh = DBI->connect("dbi:FreeTDS:server=server1","user","***");

Is this expected behavior with dbi:ODBC?