open my $graph, '<', '2211.txt' or
  die "Can't open `2211.txt': $!\n";