use DBI;
my $table_name = "perl";
my $db_name = "system";
my $user_id = "doc";
my $password ="your password here";
my $interface = "DBI";
my $row = ( "$db_name ('$table_name$user_id $interface')");
eval $row;