[perl-win32-gui-users] Aborting a buffered write

[Erick J. Bourgeois]

I have a process running, which is writting to a file(using print instead of 
syswrite),
and I have a small dialogbox with a progressbar and an abort button. The 
problem is when I
click the abort button, I get a GUI message "select: Bad file descriptor at ... 
line 412".
This is the line where I read the data in, however, the event for the Abort 
button closes
the data stream and the file I'm writting to. Plus the title for the window 
error is a
subroutine which was a far ancestor to where it says the error is. This is what 
the
Abort_Click looks like.

sub Abort_Click {
    close(FILE);
    $data->abort();
    $ProgWin->Hide(); # <--progress dialogbox window
    $MainWin->SetForegroundWindow();
    $MainWin->BringWindowToTop();
    GUI::Update($MainWin);
}

I need a way tell the subroutine that is showing the progress to stop reading 
data and
move on. Any ideas?

erick
never stop questioning
www.jeb.ca