Vidul Nikolaev Petrov

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>