000: my $fname = $ARGV[0];
001: open(FILE, $fname) or die "Can't open file!";
002: 
003: my $can_foo=1;
004: eval "use FOO::bar";
005: if($@) { $can_foo=0; }  #Don't try to use if unavailable
006: 
007: #later on in the program, maybe multiple times.
008: 
009: if ($can_foo) {
010:   my $foobarzlot=sprintf("%d,",bar(FILE)->zlot);
011:   print "FOOBARZLOT=".$foobarzlot."\n";
012: }