while (my $d = <DATA>){
        print "GOT:", $d;
        print "\nNEWLINE WHEN SYSTEM IS ENABLED WHY?!" if ($d eq "\n");
        system("cmd /c");
    }       
__DATA__
123
456
789