$choice = <STDIN>;

# remove the newline character from the chosen option.

chomp $choice;

if ($choice eq 1)