my $data = <<'<<DATA';
Dont you put me after  __DATA__ you human
<<DATA

open my($fh), '<', \$data;
while(<$fh>){
  print length, "\n";
}
__END__