#!/usr/bin/perl -w
use strict;

use Win32::API;

use Win32::Scanner::EZTWAIN;

my $path_to_dll="C:\\EZTW32\\eztw32.dll";
    my $scanner = new Win32::Scanner::EZTWAIN(-dll => $path_to_dll);
    $scanner->select_image_source();
    $scanner->acquire_to_file("P:\\USB-Camera-Image-Capture\\test.bmp");