Select Code to Download

#!/usr/bin/perl

use strict;
...
$ftp->cwd("newpage");
$ftp->rename('file.html','file.old');
$ftp->put($SH ,'file.html');