use strict;
use warnings;
use diagnostics;

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

__DATA__
0
1
2
3
0