DB<1> $variable = 3;

  DB<2> sub string(){"Variable = $variable\n";}

  DB<3> print string;
Variable = 3

  DB<4> $variable = 4;

  DB<5> print string;
Variable = 4