#!/usr/bin/perl
 
use DBI;
use strict;
use warnings;
# Database settings
my $database = "website";
my $username = "test";
my $password = 'testtest';
my $table = "apartments";
# Connect to database
my $dbh = DBI->connect("dbi:mysql:database=$database;host=localhost;user=$username;password=$password") or die "Couldn't connect to database: $DBI::errstr\n";

my $sth = $dbh->prepare("select * from $table')") or die "Couldn't prepare statement: $dbh->errstr\n";
$sth->execute() or die "Couldn't execute query 'sql': $DBI::errstr\n";