in reply to Changing file permissions in perl

Try setting your "umask" with umask(0022). Alternatively, simply chmod the file after the mirror method returns:
$ua->mirror(..., $path); chmod 0755, $path;