#!/usr/bin/perl

use warnings;
use strict;

use Imager::Screenshot qw(screenshot);

$ENV{DISPLAY} = ':0.0';
my $img = screenshot;

$img->write(file => $ARGV[0] || 'screenshot.png');