del files

[Javeed SAR]

I want to  delete files.

I am not able to delete , what is the wrong thing I am doing here.
I am able to see the file in @privates


I am getting following output:


0 deleted
Attempting to delete M:\jav_test\train\k k k.mkelem.mkelem



#!c:\perl\bin\perl 
@privates =`cleartool lsprivate  -tag jav_test -other`;
#print "@privates";
#print "Enter a  pattern:";
#my $pattern =<>;
#chomp $pattern;
foreach (@privates)
{
print "\nAttempting to delete $_\n";
 $delo=unlink @private;  
print "\n $delo deleted";
}