my $cmdls = system("ls work\\startup");


if ($cmdls != 0) {
	print "create work\\startup directory\n";
	my $cmdmkdir = system("mkdir work\\startup");
	if ($cmdmkdir != 0) {
		print("create work\\startup directory failed\n");
		exit 1;
	}
}