12:-->  "chdir $toloc or dir qq(can't chdir $toloc $!\n);"
13:      my $result = `/usr/bin/tar -xvpf $test`;

##</code><code>##

Using perl 5.8.6 unless otherwise noted.
Apache/2.0.54 unless otherwise noted.
Fedora Core 4 (2.6.11-1.1369_FC4) unless otherwise noted.