Select Code to Download

my @alphabet = (q{a} .. q{z});

chomp(my $hladane = <STDIN>);

$slovo = $alphabet[$nummer];

$ perl -le '$let = q{a}; $let ++; print $let;'
b
$