open targetfile, ">source.ada" or die "Can't open: $!";