open LOG, '>', '/some/place/my.log' or die $!;
...
print LOG q~About to my @elementlist = Statements::doSelect at ~, __FILE__, ' ', __LINE__,"\n";

my @elementlist = Statements::doSelect("element_id,element_titel","t_element");

print LOG "DONE \n";
...