$ perl t.pl
joe's first name: Joe
jane's last name: Smith