Select Code to Download

#usr/bin/perl
use strict;
...
chomp( my $input = <STDIN> );
print $numbers{ $input } if exists $numbers{ $input };