use strict;
use warnings;

*STDIN = *DATA;

while (my $test = <STDIN>) {
    print "$test\n";
}

__DATA__
one
two
three
four