#! /usr/local/bin/perl

die "usage: rawtops.pl infile\n" unless @ARGV;
$infile = shift(@ARGV);

@srcstat = stat "$infile";
$size = $srcstat[7];
$xsize = sqrt($size);

system("rawtopgm $xsize $xsize $infile | convert PGM:- $infile.ps");