#!/usr/bin/perl
$n = 50;
$p = 0.2;
$seed = 11967;

print "graph ER {\n";
print "node [shape=point,color=blue,width=.1,height=.1];\n";

rand($seed);
foreach $i (1..$n){
   foreach $j ($i+1..$n){
     $r = rand();
     if($r < $p){
         print "$i -- $j \[color=red];\n";
     }
   }
}
print "}\n";