How can I take a screenshot of website with Perl?

Possible Duplicate:
How can I take screenshots with Perl?

How can I take a screenshot from a site (in batch mode) using Perl? I.e. solution should produce image file (say .png) given an URL. It would be nice, if no X Window system will be required for solution to work.

Solution

I'd use WWW::Mechanize::Firefox. Unfortunately it does need X (at least on non-OS X *NIX), but you can use xvfb to run it headless.

Date Time Format, Perl Oracle SQL
Why is my hand-created JSON not recognizing the object in an array?
RSA using EME-OAEP padding with SHA-256 as hash function
Why does running the same regex twice yield different results?
Preserve YAML order perl
How to check if $j->{component} is empty in perl?
Destructive @_ operation and passing @_ in the same statement
Perl search and replace words in file
How can I run a Perl script from Emacs?
Perl - positions of regex match in string
How do i figure out which dependences of a CPAN distribution require a compiler?
How can I convert a string to a number in Perl?
Add a backslash to specific lines per negative lookaround with sed or perl
How can you prevent forked child processes from disconnecting DBD::Pg connections, when you have no access to $dbh?
How to pass a string with spaces as http POST data using curl
perl debugger and utf8 variable names
How can I extract the text in an XML tag in Perl?
how to improve this perl/bash one-liner to deserialize json data
Asynchronous programming in Perl
Which libc/stdio IO functions Perl uses to open a file?
Is object oriented exception handling in Perl worth it?
Can perl automaticly delete a scalar and replace with arrayref?
Undefined symbol building WWW::Curl::Easy Perl module on AIX 5.3
Unable to find package file warning in Intellij and Perl plugin
How can I get name of the user executing my Perl script?
Mysql to MariaDB mysql_insertid - LAST_INSERT_ID issue
Why does making an assignment inside an if statement evaluate differently from making the assignment beforehand
How to parse a string into a DateTime object in Perl?
Testing -t STDIN vs -t <STDIN>
Regular expression for a JIRA identifier