#!/usr/local/bin/perl

use strict;
use warnings;

my $file = '/root/Desktop/';
sleep 5;
$file =  system("import -window root MyScreenshot.png");
print $file, "\n";

##</code><code>##

use strict;
use warnings;

system("import -window root MyScreenshot.png");