my %args = (ssh_args => []); $args{debug} = 1 if $opts{v}; push @{ $args{ssh_args} }, compression => 1 if $opts{C}; print "Connecting to $host...\n"; my $sftp = Net::SFTP->new($host, %args);