Select Code to Download

print 'Select a number: ';
my $input = <STDIN>;
...
} else {
    print "Unknown number.\n";
}

  Number entered is : 12345678
  User for number 123456789 is : Sam  
  Comments for the number 123456789 is : Changed "abc" in the file