#!/usr/bin/perl

# Test
my $pid = run_in_bg();
sleep 5;
system("firefox","-remote","openURL(http://www.google.com,new-tab)");
sleep 2;
kill 9, $pid;
sleep 5;
system("ps auxf");

sub run_in_bg
{
    $pid = fork();
    if($pid==0) {
        exec("firefox -private about:blank");
        exit(0);
    }   
    return $pid
}