#!/usr/bin/perl
    if (!fork() { system("C"); sleep(100000); }
    sleep(100000);