Remember that perl will implicitly return the sub's last operation's result.
So, what you're seeing is someone printing something, and then notting the success of the print. Which is, uh, odd, since print usually works unless something uniquely catastrophic has happened. compare

print print "foo\n";
[download]

and

print not print "foo\n";
[download]

.