#! /usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use Win32::Scanner::EZTWAIN;

my $dll = '';#'EZTW32.DLL';

my $scanner = Win32::Scanner::EZTWAIN->new()
    or warn "Error: couldn't load scanner: $!\n";;
#$scanner->select_image_source();
$scanner->acquire_to_file("test.bmp");
print Dumper($scanner);