#! perl use strict; use warnings; use Module::Load::Conditional qw( check_install ); my $something = "This is really something!\n"; my $superduper; BEGIN { $superduper = check_install(module => 'SuperDuperPrinter'); } if ($superduper) { use if $superduper, SuperDuperPrinter => qw( Print ); SuperDuperPrinter::Print($something); } else { print $something; }