Lines Matching refs:handle
31 my $handle = new IO::File;
32 open($handle, $file) or die "$file: $!";
33 while (<$handle>) {
56 close($handle);
135 my $handle = new IO::File;
136 open($handle, $ARGV[0]) or die "$ARGV[0]: $!";
137 my $line = <$handle>;
157 $line = <$handle>;
180 $line = <$handle>;
186 $line = <$handle>;
229 $line = <$handle>;
232 $line = <$handle>;
235 close($handle);