...
use Devel::Size qw( total_size );
use Time::HiRes qw ( time );
...
$width  = 1280*4; 
$height = 1024*4;
...
__END__

Image Size 20 MP
Queue Size 640.627 MByte
Took 8.150 seconds