#!/usr/bin/perl

$file = sprintf("pork.txt");

# open file and write header
open(IMAGEFILE, ">$file");
print IMAGEFILE "P5 $width $height 255\n";
close(IMAGEFILE);