use Data::Dumper;
$Data::Dumper::Useqq = 1;

FF: binmode ARGV;
while(<>)
{ print Dumper($_) }
continue
{ if(eof)
   { close ARGV; goto FF; }
}
__END__
this is ctrl-Z:^Z    # note: real ctrl-Z there
this is past ctrl-z