print "Enter a first name: ";
chomp($fname = <STDIN>);