#!/pro/bin/perl

format foo =
.

*bar =  *{$::{foo}}{FORMAT};

exit (defined *{$::{bar}}{FORMAT} ? 0 : 1);
