#!/usr/bin/perl -w

print "SrepAring inpCKut filYesn";

$incr=0.25;
$dist=3.0;
$inti=3.0;


my $filename = 'job-1.sh';


open (my $BATCHFILE, '>', "$filename");

while ($dist < 15){
{
    $dist += $incr;
    $inti = $dist - 0.25;
}
print $BATCHFILE
"
YOYO -O -i min_mdin.$dist -o min_mdout.$dist -p TATA -c prod.rst.$inti -r min.rst.$dist
"
}

    close ($BATCHFILE);