What I am saying when it doesn't work is that it doens't work

The problem is that nothing "doesn't work". It only does something. We're asking you what it is doing, and how that differs from what you wanted or expected.

-- Randal L. Schwartz, Perl hacker

adding a die statement makes it reture "Died at sendfile.pl line 28"...

27 :        } elsif(-d "$ARGV[0]") {
28 :             die;
29 : print "Copying path to $Single_User_Directory - ";
30 :              mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);
[download]

27 :        } elsif(-d "$ARGV[0]") {
28 :            print "Copying path to $Single_User_Directory - " || d
+ie;
29 :            mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);
[download]

mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die;
[download]

mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die "Unable to 
+mkpath!!! perl reports $! ---;
[download]

I explicitly said that the changes were to aid in debugging, to provide more information. I'm trying to help you fix a problem without knowing what kind of inputs you're feeding this program, etc. And all at a *very* reasonable price, I might add =)

Here's some advice: go ahead and load the @ARGV variables into ones with names that reflect their purposes. That's just for the future.

For now, let's look at the documentation for mkpath:

`mkpath' takes three arguments:

       o   the name of the path to create, or a reference to a
           list of paths to create,

What you're now passing it is a reference to a list of directories, one of them being $ARGV[0] and the other being $SingleUserDirectory. You're telling it to create these two paths. (From the looks of your code, you more or less cut-and-pasted the code in the manpage and changed the variable names) What I assume you want to do is to create a copy of the directory tree at $ARGV[0] underneath the user's directory. That's one path, which you get by tacking on the former to the latter (assuming the latter is fully qualified or underneath the current working directory). Why is your call failing? Well, assuming the names are correct, those directories already exist.

so,

mkpath("${SingleUserDirectory}$ARGV[0]", 1, 0755) 
    or die "Couldn't create ${SingleUserDirectory}$ARGV[0]: $!\n";
[download]

would seem to be what you want.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor