if (my $pid = fork())
{
  # parent
  monitor($pid);
}
elsif (defined $pid)
{
  # child
  exec(@command);
}
else # fork failed.
{
  # How do you want to handle this?
}