perl 程序调用cmd

my $a="mkdir first ";
my $ret = system($a);
if ($ret) {
        print "$ret\n";
}