if($ftp->command('CPFR', 'pfad1/test_ftp.pl') && $ftp->command('CPTO','pfad2/test.pl') && $ftp->response() == Net::Cmd::CMD_OK)
{
  ...
}