Select Code to Download

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 1234567890
$n=shift;print chr(($n-97+ord)%26+97)for split//,pop

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 1234567890
print chr 97+($ARGV[0]-97+ord)%26for pop=~/./g

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 1234567890
print chr 97+($ARGV[0]+7+ord)%26for pop=~/./g