my $param = "$ARGV[0]";

##</code><code>##

my ($param,$dir,$newWidth,$newHeight,$newQuality)= @ARGV;

##</code><code>##

my @tmp = split(/\\/,$0);
my $name = $tmp[-1];

##</code><code>##

croak "Wrong number of parameters at" unless @_ == 3;

##</code><code>##

my ($file, $newWidth, $newHeight) = @_;

##</code><code>##

open(JPEG,">new$file")

##</code><code>##

if ( $_[3] ) { $quality = $_[3] if ( $_[3] =~ /[1..100]/ ) ; }

##</code><code>##

   if (-f $dir) { changesize ($dir ...    }
   else {  # do the loop

##</code><code>##

my @onlyFiles= grep {{-f "$dir/$_" and /jpe?g$/} readdir(DIR);