10 lines
143 B
Perl
10 lines
143 B
Perl
|
|
||
|
|
use IO::File;
|
||
|
|
$filehandle = new IO::File;
|
||
|
|
|
||
|
|
if ($filehandle->open("<hello.txt")) {
|
||
|
|
|
||
|
|
print <$filehandle>;
|
||
|
|
|
||
|
|
undef $filehandle;
|
||
|
|
}
|