Perl won't end when calling an Oracle Stored Procedure

I am using Perl to access a database by calling an Oracle Stored Procedure, and it is working, accessing the data fine, but when the program is complete, it doesn't end the process on the server.  Has anyone run into this problem before?  Below is my code, including the point from which the program will not terminate.  Any help you could provide would be appreciated.

#!perl

use DBI;
use DBD::Oracle qw(:ora_types);

#DBI->trace(1);

my $dbh = DBI->connect( 'dbi:Oracle:rptprod', 'username', 'password', {RaiseError=>1} ) or die;

my $employees_cursor;
my $sql = "BEGIN " . "cb_provider.detroit.tester1(:r, :proj_id, :fiscal_period, :fiscal_year, :status); " . "END;";
my @row;

my $sth = $dbh->prepare($sql);

$sth->bind_param( ":proj_id", "400242.200" );
$sth->bind_param( ":fiscal_period", 11 );
$sth->bind_param( ":fiscal_year", "2003" );
$sth->bind_param( ":status", "" );
$sth->bind_param_inout( ":r", \$data, 0, { ora_type => ORA_RSET });


#### IF I EXIT BEFORE THIS EXECUTE STATEMENT, PERL ENDS GRACEFULLY
$sth->execute ();
#### IF I EXIT AFTER THIS EXECUTE STATEMENT, PERL CONTINUES RUNNING UNTIL I CLOSE DOS WINDOW (IT DOES GET TO THE LAST LINE OF CODE (IT PRINT 'END')).

my $count = 0;
while (( @row = $data->fetchrow_array() )&&($count < 99)) {
    $count++;
    print "$count - ";
    foreach $_ (@row) {
    print $_ if defined $_;
    print "\t";
  }
  print "\n";
}

$data->finish ();
$sth->finish ();

$dbh->disconnect ();

print "END\n";

EXIT;