print "no rows\n", exit unless $rows;
print "we seem to have rows.\n";
__END__
[download]

and

print "no rows\n" and exit unless $rows;
print "we seem to have rows.\n";
__END__
no rows
[download]

update: as ikegami point out below, you are not passing a list to print - since you treat print as a function, and are passing in its arguments in parens. With the comma operator, you are still evalutaing a list, and in that list exit gets evaluated..

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

That's because you are passing a list to print.

Unless he edited the code he posted, that's not true. His code has parens.

print("no rows\n"), exit unless $rows;
print "we seem to have rows.\n";
__END__
no rows
[download]

Thank you now its clear to me!!
Exit was evaluated but evaluation meant execution and the script dies prematurely witohut completely printed...

Can you aslo answer on die statement i kses in same thread that both prints my error and displays its error too?

That's because of the die on line 74.

If your script dies, it passes a non-zero exit value to the invoking process - your web server. From the exit value it deduces something went wrong, so it sets a status of 500 - internal server error - and displays anything that was thrown out STDERR at the exit of your script - which is the error you want to have displayed.

You surely do not want die there at line 74, but instead print a header with status 200 (if not already printed), print your error message to STDOUT, and exit after that.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}