First, the code I just used:

#!/usr/bin/perl -w

use strict;

my ($direct);
chomp($direct = $ARGV[0]);
shift @ARGV;
chdir($direct) || die "failed to change to directory: $!";
opendir(WORKDIR,$direct) || die "failed to open directory: $!";
closedir(WORKDIR) || die "failed to close directory: $!";
[download]

Next, the output:

username@computer:~$ perl testchdir.pl music
failed to open directory: No such file or directory at testchdir.pl li
+ne 9.
username@computer:~$
[download]