NAME

swd - Perl pragma to change the current working directory

SYNOPSIS

use swd;

DESCRIPTION

The swd pragma changes the current working directory($ENV{PWD}) to the directory from which the called program is invoked; after callee returning the previous state of $ENV{PWD} is restored.

use swd;              # in the callee

print "callee: $ENV{PWD}\n";
print $_,$/ for glob'*';
__END__


qx/callee/;           # in the caller

print "caller: $ENV{PWD}\n";
print $_,$/ for glob'*';
__END__

SEE ALSO

Cwd

AUTHOR

Vidul Petrov, <vidul@cpan.org>