Select Code to Download

#!/usr/bin/perl -w

use strict;
...
chdir($direct) || die "failed to change to directory: $!";
opendir(WORKDIR,$direct) || die "failed to open directory: $!";
closedir(WORKDIR) || die "failed to close directory: $!";

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