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