Sql Server Use Statement In Perl