use strict;
use Win32::SqlServer qw(SCALAR);

print "Please enter DB name:\n";
my $name = <STDIN>;
chomp($name);
# Log in to  server .

my $sqlsrv = Win32::SqlServer::sql_init('localhost', 'geff', 'gentle', 'Northwind');
# Our SQL statement.

my $stmnt = <<SQLEND;
BACKUP database  "$name" TO  DISK = N'c:\\bak\\master.dmp'  
SQLEND

# Run query. 
my $result = $sqlsrv->sql($stmnt, SCALAR);

# Print results.
foreach my $name (@$result) {
   print "$name\n";
}