#! /usr/bin/perl
use warnings;
use strict;

print "" while <DATA>;
warn 'here';

__DATA__
1
2
3

##</code><code>##

here at /home/choroba/1.pl line 6, <DATA> line 3.
# in the script:      ~~~~~~~~~~~
# in the input:                    ~~~~~~~~~~~~~