Select Code to Download

#!/usr/local/bin/perl

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

use strict;
use warnings;

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