#!/usr/local/bin/perl 
$in_filename = "graph_set_1.out";		
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";