#!/usr/bin/perl $width = 556; $height = 303;