while (my $d = <DATA>){
        print "GOt:", $d;
        system("echo foo");
    }       
__DATA__
123
456
789