9 lines
112 B
Perl
9 lines
112 B
Perl
|
|
#! /usr/local/bin/perl
|
|
use Cwd;
|
|
$dir = cwd;
|
|
print "dir=> $dir\n";
|
|
chdir ('D:\\mydir');
|
|
$dir = cwd;
|
|
|
|
|