Here's something to try:

#!/usr/bin/perl 
##############################################################
use strict;

my $directory=shift @ARGV;   # get the target directory

open $fh,"> /tmp/logfile.txt" or die "/tmp/logfile.txt:$!";

if ( ! -d $directory ) {
      puke_and_die($fh,"no such directory: " . $directory);
      
}
chdir $directory or puke_and_die($fh,"Cannot chdir to $directory");
opendir(DIR,$directory);
while(my $fname=readdir(DIR)){
       next if ($fname eq '.') || ($fname eq '..');
       next if -d $fname;
       unlink $fname or logit ($fh,"could not remove " . $fname . ": $
+!");
}



exit(0);
sub logit {
       my($fh,$msg) = @_;
       printf $fh,"%s\n",$msg;
}
sub puke_and_die {
      my ($fh,$msg)=@_;
      logit($fh,$msg);
      close $fh;
      exit(-1);
}
[download]

1. This assumes you are passing the directory you want cleaned out as an argument to the script. If not you need to change the mechanism a bit to accommodate your requirements.
2. This is completely untested and is the product of a caffeine deficient brain,

ENOCOFFEE: SysAdm Halted. Brain fried; core dumped.

use strict;
my $file_location = shift;
open(FH,">","log.txt") or die "unable to open file log.txt";
my @files = <$file_location/*>;
foreach my $file (@files){
    system("rm $file");
  unless( $? == -1 ){
    print FH "\n$file is deleted..";
  }
  else{
    print FH "\n$file is not deleted.. $!";
  }
}
close FH;
[download]

"It is very easy in Perl"

Your code doesn't even run.

Can't take log of 0 at orig.pl line 2
[download]

open. You also don't check for failures when opening the log file.

Also $file doesn't contain what you assume it does, hence all your deletes fail when you prepend the path.

Rahul6990,

It is considered polite around these parts when, if you're going make updates to your posted code, that you indicate the before and after versions of the code. This would be more illustrative and will give others the opportunity to benefit from your mistakes so that they might not have to make them later.

At the very least, you should give a brief description of the changes you've made, so that some semblance of context/continuity remains.

</broken_record>




What can be asserted without proof can be dismissed without proof. - Christopher Hitchens, 1949-2011