my $sth = $dbh_o->prepare(q~GIANT MIGHTY SQL STATEMENT~)
    or die "Couldn't prepare statement: " . $dbh_o->errstr;
	
		open(OUT,'>',"c:\\Apache2.2\\script_run\\Calldetails_".$inv_nr.".txt") or die("open failed: $!");
		
		$sth->execute($inv_nr);
		while (my @data = $sth->fetchrow_array()) {
			print OUT join(';',@data),"\n";
		}
		$dbh_o->disconnect;
		close(OUT);