$ perl -e 'chdir "no existant directory" or die "chdir failed: $!\n"'
[download]

Which outputs this helpful message;

chdir failed: No such file or directory
[download]

if ( -d '/vob/ios/sys/obj-ppc-c3750') {
    chdir("/vob/ios/sys/obj-ppc-c3750");
}
else {
    print "/vob/ios/sys/obj-ppc-c3750 does not exist\n";
}
[download]

You don't need all those chomps either. They are only necessary if the string contains a newline in the end - not the case for $ARGV[0] or for the other assignments.

you create and print $path, then you chdir to somewhere else. Is that intended? What is $path good for then?

Hi c3750 directory exist, but script is not doing CHDIR Any way I can do it Thanks Amit

Also remember that your program can not effect the working directory of its parent. So if you are trying to run this from a shell prompt and are expecting the current directory of your shell to be changed after your script exits, that won't work.

user@host:/mytempdir> perl -e'use Cwd; chdir("/"); print getcwd() . "\
+n";'
/
user@host:/mytempdir>
[download]

In the example above you can see that the chdir did work, but after the script exits the cwd is back to what it was.

One solution is to pass the information to the parent and let it change the path.

• Unix, single command:

  chdir `perl -e 'print quotemeta("/some/path")'`
  [download]

• Unix, multiple commands:

  $ cat script.pl
  print("set var=val\n");
  print("set foo=bar\n");
  print("cd /some/path\n");
  
  $ script.pl > temp_file && source temp_file && rm temp_file
  [download]

  I'm sure it can be done without a temp file, but my sh scripting is rusty.

• Windows, multiple commands:

  >type script.pl
  print("set var=val\n");
  print("set foo=bar\n");
  print("cd \\some\\path\n");
  
  >for /f "usebackq delims=" %%f in (`script.pl`) do %%f
  [download]