There's a really nice module called Image::Grab that makes most of this code redundant. Use the CPAN, luke!

-- Randal L. Schwartz, Perl hacker