Hello everyone,

I'm experiencing long delays in my print statements and was wondering why.

print "Connecting to database... ";  #this print works

# Connect to the SQL database
my $dbh = DBI->connect($dsn,'username','password',{RaiseError=>0, Prin
+tError=>0});
if ($dbh) {
    print "Connected.\n";      #gets printed
}else{
    print "Cannot connect to database. (",$dsn,")\nQuitting\n";
    exit;
}

print "Processing File... ";   # delayed till near end.

my $sth = $dbh->prepare( qq{
     SELECT field1 FROM Table
     WHERE field2 = ?});

open(FILE, 'data');  # gonna process a BIG file
while(<FILE>) {
$sth->execute($_);
# etc etc...
}
close FILE;

print "Done processsing file\n";
[download]

Any print statements at "Processing File" and afterwards are not done until near the end of the program.
I've tried print STDOUT "stuff"; and select (STDOUT); before those print statements but it didn't work.

Any help would be appreciated. Thanks.
-Mel