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