Aside: it appears that what you tell us up to the words "suppose my code is in backup.pl is irrelevant to the question you didn't ask but that, on a WAG, may be, "how do I revise this code to use..." perl backup.pl -i servername -d databasename

Of course, the code you show offers very little support for (or "relevance to") my WAG, so maybe you'd better clarify your thinking... and then your question.

And, for the benefit of others with better brains, less time or patience, here's what your (posted) code is apparently supposed to look like:

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"; 
}
[download]

Update, clarifying: That is, that's what the code would have looked like if you'd bothered reading the advice about formatting in Writeup Formatting Tips. That is NOT to say it's anything even close to good code.

 
use strict;
use Getopt::Long;

my $database = '';
my $servername = '';
my $result = GetOptions ("database=s" => \$database,  # string        
+          
                         "servername=s"     => \$servername);   # stri
+ng        

print qq|USAGE: perl backup.pl --database=<database> --servername=<ser
+vername>\\
n| unless ($database && $servername);

my $stmnt =qq|BACKUP database "$database" TO DISK = N'c:\\bak\\master.
+dmp'\n|;

print $stmnt;
[download]

You get the idea.

I'm not sure why you need to write a Perl script to do this -- wouldn't bash (or friends and relations) be a simpler platform for this task?