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

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

__DATA__
1
2
3