#!/usr/bin/perl use strict; use warnings; use IO::Scalar; use Net::FTP; my $ftp = Net::FTP->new("my.ftp.host", Debug => 0, Passive => 1); my $data = "FooBar"; my $SH = new IO::Scalar \$data; $ftp->login("username",'mypass'); $ftp->cwd("newpage"); $ftp->rename('file.html','file.old'); $ftp->put($SH ,'file.html');