1#
2# This library is no longer being maintained, and is included for backward
3# compatibility with Perl 4 programs which may require it.
4#
5# In particular, this should not be used as an example of modern Perl
6# programming techniques.
7#
8# Suggested alternative: IO::Handle
9#
10;# Usage: &flush(FILEHANDLE)
11;# flushes the named filehandle
12
13;# Usage: &printflush(FILEHANDLE, "prompt: ")
14;# prints arguments and flushes filehandle
15
16sub flush {
17    local($old) = select(shift);
18    $| = 1;
19    print "";
20    $| = 0;
21    select($old);
22}
23
24sub printflush {
25    local($old) = select(shift);
26    $| = 1;
27    print @_;
28    $| = 0;
29    select($old);
30}
31
321;
33