#! /usr/bin/perl -T --
#
# $Id$


use strict;
use warnings;

my $CMD="/usr/libexec/openssh/sftp-server";
my $PATH="/tmp";

%ENV=();	# Prevent: Insecure $ENV{PATH} while running with -T switch
chroot $PATH or die "chroot: $PATH: $!";
chdir "/" or die "chdir: $!";
exec $CMD;
die "$CMD: $!";
