use strict;
use warnings;
use POSIX;
require "syscall.ph";
my $d = POSIX::open(".") or die $!;
system("pwd"); # nur zur Kontroll-Ausgabe
chdir("/tmp") or die $!;
system("pwd"); # nur zur Kontroll-Ausgabe
-1 != syscall(&SYS_fchdir, $d) or die $!;
system("pwd"); # nur zur Kontroll-Ausgabe
POSIX::close($d);