Select Code to Download

my $var1 = "dbname";                    #Database Name
my $var2 = "user";              #Username
my $var3 =  "pass";                 #Password
my $var4 =  "select directory_path, keyword1, keyword2, keyword3 from 
+load_instance where rule_id = 
+'1'";

my $database = "dbname";
my $username = "user";
...
my $dbh = DBI->connect( "DBI:Oracle:", $database, $username, $password
+ );
...
$sth->prepare($query);