Файловый вывод в Perl

[0xDEAD]

Хочу написать скриптик, причем нужен вывод в файл.
Пишу как описано в perldoc:

Код: Выделить всё

#!/usr/bin/perl
open $my_file , ">", "test.txt";
print $my_file, "Hello, World!";
close $my_file;

однако в файл ничего не выводится, а на экран выводится сообщение

Код: Выделить всё

GLOB(0x8144c20)Hello, World!

Как, все же, правильно выводить данные в файл?

[snake]

Код: Выделить всё

#!/usr/bin/perl

open (FILE, ">file.txt");
print FILE "bla-bla-bla";
close(FILE);

Дискрипторы файлов. Учим матчасть

[0xDEAD]

Спасибо, а то запутался!

[v04bvs]

0xDEAD: уберите первую запятую в 3-й строчке