sub resize_images  {
use 5.010;
use Path::Class;
use Image::Magick;

my ($rvars) = shift;
my %vars = %$rvars;

$target = 100; 
$bias = 2; 

opendir my $hh, $vars{to_images} or warn "warn  $!\n";
while (defined ($_ = readdir($hh))){
  my $image = Image::Magick->new;
  my $file = file($vars{to_images},$_);
  $image->ReadImage($file);
  $x = $image->Get('filesize');
  my $k = $x/1024;
  say "$file has filesize of $x bytes or $k k";
    if ($k>$target){
      say "file is $file";
      my $ratio = $k/($target+$bias);
      say "ratio is $ratio";
    }  
}