while (<DATA>) {
    print "From Data: $_\n";
}
__DATA__
This
Is
Lieutenant
Data