Some debugging statements, dont remember Perl very well