chop($cwd = `pwd`);

##</code><code>##

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

##</code><code>##

    Before:
    After: Illegal seek

##</code><code>##

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