print "Before: ", $!, "\n";
    my $cwd = `pwd`;
    print "After: ", $!, "\n";