my $extra_args;
if ($ARGV[0] eq "/y") {
$extra_args = "/y";
}
system ("C:\\WINDOWS\\System\\deltree.exe $extra_args) and die "Couldn't delete tree: $!\n";