$ perl fatherson.pl 1045316419 1045316492
Father of 1045316419 is 1045316407
Father of 1045316492 is 1045316407