diff --git a/NGCP/CDR/Export.pm b/NGCP/CDR/Export.pm
index d1c8d07..eae3d18 100644
--- a/NGCP/CDR/Export.pm
+++ b/NGCP/CDR/Export.pm
@@ -12,7 +12,6 @@ sub get_mark {
         push @ids, "lastseq-$id";
     }
     for my $mk(@ids) {
-        print "getting mark $name-$mk\n"; 
         $s->execute("$name-$mk") or die($dbh->errstr);
         my $r = $s->fetch;
         $marks{$mk} = ($r && $r->[0]) ? $r->[0] : 0;