There are modules for this which could be easily found. Always be sure to search CPAN first--its all been done by someone before :)
Image::Grab
_______________________________________________________
s&&q+\+blah+&oe&&s<hlab>}map{s}&&q+}}+;;s;\+;;g;y;ahlb;veaD;&&print;