#!/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: $!";

##</code><code>##

username@computer:~$ perl testchdir.pl music
failed to open directory: No such file or directory at testchdir.pl line 9.
username@computer:~$