view release on metacpan or  search on metacpan

examples/sftp-server-wrapper.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
use strict;
use warnings;
 
exec qw(perl -Mlib::glob=/home/salva/g/perl/p5-*/lib
        /home/salva/g/perl/p5-AnyEvent-PacketForwarder/examples/N-slave.pl
        /usr/lib/openssh/sftp-server);