Thread: Mozilla - C - and perl

>>I could possibl try doing it in perl, I put that in there in case anyone new how to do it in perl
It's a piece of cake :-)

Code:

#!usr/bin/perl -w

use Errno qw(EAGAIN);

FORK: {
  if ($pid = fork) {
    # Do something
    print "Parent closing\n";
    exit(0);
  }
  elsif (defined $pid) {
    # Open a browser
    exec '/usr/bin/mozilla';
  }
  elsif ($! == EAGAIN) {
    sleep 5;
    redo FORK;
  }
  else {
    die "Can't fork: $!\n";
  }
}