use 5.020;

my $zeile = 'toast';

$DB::single = $zeile eq 'test';

say "Los geht's!";

$zeile = 'test';

$DB::single = $zeile eq 'test';

say "Und weiter geht's...";