use IPC::Open2 qw( open2 );

my $pid = open2(my $to_child, my $from_child, 'konqueror', $url);
sleep(5);
kill(TERM => $pid);

##</code><code>##

my $pid = fork();
if (!defined($pid)) {
   die("Unable to fork: $!\n");
}
if (!$pid) {
   exec('konqueror', $url);
   die("Unable to exec: $!\n");
}

sleep(5);
kill(TERM => $pid);