diff --git a/bin/graph_flow.pl b/bin/graph_flow.pl
index 7da82626..378b3f31 100755
--- a/bin/graph_flow.pl
+++ b/bin/graph_flow.pl
@@ -45,13 +45,12 @@ if($#ARGV!=1)
   die(usage());
 }
 
-my $rc = eval
+eval
 {
   require GraphViz;
   GraphViz->import();
   1;
-};
-return unless $rc;
+} or die "You need package libgraphviz-perl to run this program\n";
 
 my $g = GraphViz->new();
 my $filename = abs_path($ARGV[0]);