Für die Punkte kannst Du vielleicht Term::ProgressBar nehmen.

Bei fork solltest Du ueberpruefen, ob der Rueckgabewert undef ist. In dem Fall hat der fork naemlich fehlgeschlagen und Du bist immer noch im vorherigen Prozess.

$x auf 1 zu setzen und dann exit bringt ungefaehr ueberhaupt nichts. Gehst Du davon aus, dass der andere Prozess dann auch das geänderte $x sieht? Das ist aber nicht so. Wenn Du das moechtest, brauchst Du Threads.