--- /dev/null
+#! /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: $!";