In the year 2012-11-11 with the perl v5.12.2/v5.14.1 it does work

$ perl fooformat.pl 2>&1 |grep FORM
    FORM = 0x99aa4c
    FORM = 0x99aa4c
    FORM = 0x99aa4c
[download]

Still doesn't quite work in v5.8.9

    FORM = 0x182fa08
    FORM = 0x182fa08
    FORM = 0x0
[download]