system("$^X -w son.pl"); # it is assumed son.pl is in CWD