How do i return the end of file message in a subroutine?

[jason corbett]

I am using an application called "Title" to kick off jobs instead of using the cron.
I am told that this application doesn't accept SQL embedded inside perl scripts unless 
the SQL  or perl script returns the end of file message. What method in perl returns 
the eof message?
 
is it 
 
sub myroutine {
 
$sql = qq( select * from mytable where rownum < 1001);
 
} return eof;
 
 
or calling eof( ) i.e.
 
sub myroutine {
 
$sql = qq( select * from mytable where rownum < 1001);
 
eof( ) }
 
return;
 
or are both of these wrong?
 
Thanks,
JC