my $scalar1 = 'Wert1';
my $dbh = DBI->connect($dsn,$user,$pass) or die $DBI::errst;
my $stmt = "SELECT * FROM tabelle WHERE ID = 1';
#...