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

##</code><code>##

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

##</code><code>##

$ perl -e '@x=qw(foo 18);&mkdir(@x)';ls
Undefined subroutine &main::mkdir called at -e line 1.