my $data = <<__DATA__;