Select Code to Download

sub read_DATA {
    require Socket;
...
    croak M09_marker_mismatch($marker, $language_id)
      unless $marker_tag eq $language_id;
}

         my ($CR, $LF) = (&Socket::CR, &Socket::LF);
        (my $data = <Inline::DATA>) =~ s/$CR?$LF/\n/g;
        @{$DATA{$pkg}} = split /(?m)^[ \t]{0,}(__\S+?__\n)/, $data;