use strict;
use warnings;
get_data();
get_data();

sub get_data    
{
   while ( <DATA> ) {
     print $_;
   }
}   ##get_data


__DATA__
A
B
C
D