#!/usr/bin/perl

$width = 572;
$height = 308;
@data = ()