55,56d54
< use Net::FTP;	# FTPstore
< 
92c90
< #   init( $wrapper_ver );                                                     #
---
> #   init( $wrapper_ver, \%args );                                             #
105c103,108
<    my ($wrapper_ver) = @_;
---
>    my ($wrapper_ver,$args) = @_;
> 
>    my $class = ($args->{"scp"}) ? "Net:SCP" : "Net::FTP";
> 
>    eval "require $class";
>    if ($@) { die "Failed to load $class : $@\n"; }
168c171,172
<    my $ftp = Net::FTP->new($FTPhost, Debug => 0) or die "Could not initiate FTP library.\n";
---
> 
>    my $ftp = $class->new($FTPhost, Debug => 0) or die "Could not initiate FTP library.\n";
380c384
< 1;
---
> 1;