#!/usr/bin/perl

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

sub myErrorHandler {
  ... mach irgendwas ...
}

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

$scpe->scp($ip,$config_file_linux);