image property testing program.

[Shawn Wilson]

This is pretty much my first perl program, so please escuse me if there 
are loads of errors, but i only get two reported to me which i can't 
figure out, any help would be appreciated.

#!/usr/bin/perl

use File::Find;
use File::Remove        qw(remove);
use Image::Info;
use File::Scan;
sub wanted;

$file       =       $File::Find::name;
$dir    =       $File::Find::dir;
print "Where are the pictures/?";
$indir = <STDIN>;
File::Find::find({\&wanted, '$indir');
exit;
sub wanted {
        unless ($file =~ '/^.*\.jpg\z/s') {
                remove $file;
                }
        else ({$file_ext, $width, $heigh, $color_type} = Image::Info(\&file)) {
                if( ($width < 200 && $height < 400) || ($width < 400 && $height < 200) 
) {
                        remove $file;
                }
                elseif ($file_ext ne {'bmp|jpg|png|tif') {
                        remove $file;
                        }
                elseif ($color_type = ('Gray'|'GrayA') {
                        remove $file;
                        |
                elseif {$scanres->scan($file) ) {
                        if( $scanres->suspicious) (
                                print "$file looks like it has a virus, delete/? 
/(Y//N/)"
                                if <STDIN>=~ 'y|Y' remove $file;
                        )
                )
        }
}


the errors are as follows:

syntax error at ./bigimg2.pl line 17, near "'$indir')"
syntax error at ./bigimg2.pl line 24, near "else ("
Execution of ./bigimg2.pl aborted due to compilation errors.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]