#!/usr/bin/perl 
my$plot1="blast.out";  #insert name for blast outputfile in m8 format
my$plot2="blast.out.top"; #insert name for blast outputfile containing only top hits
open (PLOT,">temp.p");

print PLOT 'set terminal postscript enhanced  color 20;'."\n";
#print PLOT "set terminal postscript landscape color 20;\n";
print PLOT 'set out "plot.ps";'."\n";

print PLOT 'set pointsize .2;'."\n";

print PLOT 'set xtic rotate;'."\n"; #prints xtic labels at 90 degree
#print PLOT 'set xrange [0:2.1e+6];';  #if you want to specify a range, e.g., you have multiple comparisons that all should have the same scale
#print PLOT 'set yrange [0:2.3e+6];';

print PLOT "plot ".'"'."$plot1".'" using 1:2 with points ls 2,'.'"'."$plot2".'" using 1:2 with points ls 1;'."\n"; 

close (PLOT);

system "gnuplot temp.p";

exit;
