#!/usr/local/bin/perl

$LIMIT_PAGES = 87;
$FILEDVI = $ARGV[0];
$FILEOUT = file_ps;

for ($i=1; $i<$LIMIT_PAGES; $i++)
{
    $FILEOUT = "fileps_"."$i".".ps";
#   print $i," ",$FILEDVI," ",$FILEOUT,"\n";
    system("dvips -p$i -l$i $FILEDVI -o $FILEOUT");
}