blazar, maybe he wants to migrate from ksh to an oister shell :-P jejeje
anyway, i haven't sleept too much today, so for keeping me on, i decided to translate it:
#!/usr/bin/perl
# Give port or mention server name
my $ip='some.machine';
#User ID to login into remote server
my $user='anonymous';
#Password to login in remote server
my $pass='super-secret';
open (FTP, "|-", "/usr/bin/ftp -n");
print FTP <<EOF ;
open $ip
quote user $user
quote pass $pass
lcd
bye
EOF
print "*$_\n" while (<FTP>);
close FTP;
perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'
Janitored by Corion: Changed machines and login/password