#!/usr/bin/perl
use strict;
use PDF::API2::Lite;

my %paper = (x => 288, y => 432);

my $pdf = PDF::API2::Lite->new;
$pdf->page($paper{x},$paper{y});
drawgrid(72/16,"lightblue",0.5);
drawgrid(72,"darkblue",1);
$pdf->saveas("grid.pdf");
exit 0;

sub drawgrid {
	my ($size,$color,$width) = @_;
	$pdf->linewidth($width);
	$pdf->strokecolor($color);
	for my $x (0..int($paper{x}/$size)) {
		$pdf->move($x * $size,0);
		$pdf->line($x * $size,$paper{y});
		$pdf->stroke;
	}
	for my $y (0..int($paper{y}/$size)) {
		$pdf->move(0,$y * $size);
		$pdf->line($paper{x},$y * $size);
		$pdf->stroke;
	}
}