#!/usr/bin/perl

use DBI;
use strict;

# Datenbankdaten----------------------------------------------------------------
my $dbhost = "xxx.xxx.xxx.xxx";
my $port = "3306";
my $dbname = "abc";
my $username = "NAME";
my $pw = "PASSWORT";
my $data1 = "DBI:mysql:$dbname;$dbhost;$port";
my $data2 = DBI->connect($data1, $username, $pw);
# ------------------------------------------------------------------------------

#Abfrage LSA1-------------------------------------------------------------------
my $abfrage1 = "SELECT MAC, Zeit FROM LSA1 GROUP BY MAC";
my $prepare_abfrage1 = $data2->prepare($abfrage1);	
$prepare_abfrage1->execute();
my @bt_geraet1;
while(@bt_geraet1 = $prepare_abfrage1->fetchrow_array)
	{
	 print $bt_geraet1[0]." ".$bt_geraet1[1]." \n";
	}
$prepare_abfrage1->finish();
#-------------------------------------------------------------------------------
$data2->disconnect();