#! /usr/bin/perl -w
mkdir("/var/www/test", 0777)