E:\etm\Work>perl -w mkdir.pl
Using or...
Could not mkdir "source": File exists
Using ||...
Done.