#!/usr/bin/perl

$home="qqq";
mkdir ("./$home",0755);
mkdir ("./$home/.Junk",0755);