my $call = "del $kid";
system($call);