9 lines
136 B
Perl
9 lines
136 B
Perl
|
|
open (FILEHANDLE, ">hello.txt") or die ("Cannot open hello.txt");
|
|
|
|
select FILEHANDLE;
|
|
|
|
print "Hello!";
|
|
close (FILEHANDLE);
|
|
|
|
|