#!/usr/bin/perl

$pid=fork();
if ($pid)
{ print "Returned from fork $pid \n";
  print "Parent process id $$ \n";
}
else
{ exec("./a.out");
  print "Something \n";
}