#!/usr/bin/perl

for (@ARGV) {
  tr/wertysdfghxcvb/qwertasdfgzxcv/;
}

exec 'telnet', @ARGV;
die "Couldn't exec telnet: $!";