$lastmsg='noNSensE';
$i = 0;
$! = $i;
while ($lastmsg ne $!) {
   $lastmsg = ''.$!;
   print "$i: $!\n";
   $i++;
   $! = $i;
}


##</code><code>##

$! = "Hello world";
print "$!\n";


##</code><code>##

$ftp->message()