Help for this page

Select Code to Download


  1. or download this
        chop($cwd = `pwd`);
  2. or download this
        print "Before: ", $!, "\n";
    my $cwd = `pwd`;
    print "After: ", $!, "\n";
  3. or download this
        Before:
    After: Illegal seek
  4. or download this
        print "Before: ", $!, "\n";
    my $cwd = `date`;
    print "After: ", $!, "\n";