use warnings;
use strict;
use Devel::Peek 'Dump';

while ( my $line = <> ) {
    Dump $line;
}