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