The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;

# use Carp 'verbose';
# BEGIN { $Net::SFTP::Server::debug = -1 }

use Net::SFTP::Server::FS;

my $server = Net::SFTP::Server::FS->new(timeout => 15);
$server->run;