use strict; use Getopt::Long; my $database = ''; my $servername = ''; my $result = GetOptions ("database=s" => \$database, # string "servername=s" => \$servername); # string print qq|USAGE: perl backup.pl --database= --servername=\\ n| unless ($database && $servername); my $stmnt =qq|BACKUP database "$database" TO DISK = N'c:\\bak\\master.dmp'\n|; print $stmnt;