#!/usr/local/bin/perl

use strict;
use warnings;
use IPC::System::Simple qw(capture);

my $url = 'http://www.cnn.com';
system("firefox", $url); 
sleep 30;
$url =  capture("import -window root MyScreenshot.png");
print $url, "\n";