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.