iFlyCai

#!/usr/bin/perl

# Read the bgpdump output and generate a edge list with two columns source destination
use strict;
use warnings;

my $filename = $ARGV[0];           # store the 1st argument into the variable
open FILE, '<', $filename or die $!; # open the file using lexically scoped filehandle

while (<FILE>) {