#!/usr/bin/perl
use warnings;
use strict;
use strict;
use warnings;
use Data::Dumper;



my $USER = "xxx";
my $PASS = "";
my $ga1 = "1";
my $data = "1";
my $system_id ="";
my $sernr="";
my $tid="";
my $pid="";
my $ep_time="";
my $last_time="";
my $src_type="";
my $src_addr="";
my $rt_counter="";
my $i="1";
my @test=();
my $str="";
my $ttest;
my $variable_aus_db;
my $tret;
my $var;

use DBI;

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
warn Dumper $variable_aus_db;


my @dsn = ("DBI:mysql:database=vvvvvv;" .
           "host=localhost", $USER, $PASS);
           
           # Datenbank andocken
my $dbh = DBI->connect(@dsn,
    { PrintError => 0,
      AutoCommit => 1,
    }
    ) or die $DBI::errstr;




# oben:


# später:
my $sth = $dbh->prepare("SELECT * FROM eib_tele where ID = '5'") or die $dbh->errstr();
my $rv = $sth->execute() or die $dbh->errstr;

while( my $href = $sth->fetchrow_hashref() ) {
$var = print Dumper($href->{data}); # hier muss für data der Feldname rein
 print Dumper($href->{data});
}  


$var = unpack "H4", $var;
my $decimal = hex($var);


print ($var );


$dbh->do("update eib_tele SET Quelladresse = '$var' where ID = '5'") or die $dbh->errstr();  


$dbh->disconnect();