beware perl

как ни странно, скрипт ниже по тексту письма работает без ошибок.

#!/usr/bin/perl

use strict;

print asdfagertghswdfgasdfgsdfgasdf;

# то же самое, когда перл не может определить контекст bareword, он рассматривает его как FILEHANDLE

{
       no strict 'refs';
       *{a} = sub {return "hello!!!";};
}

print a; # does nothing
print a (); # nothing
print "-=-=-=-=-=-=-=-";
print a(); # ok
print &a; # ok

#beware!