#!/usr/bin/perl

use strict;
use warnings;
use Net::SCP::Expect;

my $scpe = Net::SCP::Expect->new(verbose=>1,auto_yes=>1,user=>$user,password=>$pw);

eval {
  $scpe->scp($ip,$config_file_linux);
};

if ($@) {
  ... Fehlerbehandlung ...
}