$ perl -e '@x=qw(foo 18);sub mkdir{CORE::mkdir($_[0],$_[1])};&mkdir(@x)';ls
foo