#!/usr/bin/perl
use POSIX qw(setsid);

print "Starting Fork \n";

defined($pid=fork) or die "Can't fork: $!";
print"pid is $pid \n";
if($pid) { ### this is parent
        print " In Parent \n";
        exit(0);
}else {
        print " In child\n";
        open(F1, ">>/home/kirankm/trace.log") || die "Cannot open file $!";
        open STDIN, '/dev/null'   or die "Can't read /dev/null: $!";
        open STDOUT, '>>/dev/null' or die "Can't write to /dev/null: $!";
        open STDERR, '>>/dev/null' or die "Can't write to /dev/null: $!";
        setsid  or die "Can't start a new session: $!";
        umask 0;
        while(1) {
                $retval=`traceroute mysite.com`;
                print F1 "$retval \n";
        }

}