Perl Shapeoko Photo Scanner