I don't have access to activeperl for a true test but for me on linux this tweak of an extract of your code seems to work.

use strict;
use warnings;

my $dir = $ARGV[0];

print("ARG=", "$dir", "<<<<<<\n");

if (!$dir) {
        print ("No Folder Name given!\n");
        exit;
}

print( "The Folder Name is: ", "$dir", "\n" );
#fixdir($dir);
print "Done..."
[download]