Hi,
I am attempting to remove a files *only* from non-pwd. These files are created automatically when I execute the the code (subroutine).

#!/usr/bin/perl -w
use strict;
use File::Remove;
use Shell;

my $some_value = the_subrotine(@array);

sub the_subroutine {
    
   my @array = @_;
   
   # then execute code that returns a value
   # plus some temporary files in ~/tmp/

   return $somevalue;      

   # I need to remove these files, so this is what I did
   # with method from Shell module - failed
   find ("~/tmp/ -maxdepth 1 -type f -exec rm -v {} \;");

   # With method from File::Remove - also failed
   # remove (~/tmp/ *~);

}
[download]

Both of the approaches I tried failed to delete the files. I also tried to delete files outside subroutines also failed. Is there a correct way to do it? Or any better alternatives?