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

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

__DATA__
1