my $fh = \*DATA;