my $souperdouper=0; 
eval { require "SuperDouperPrinter" } and $superdouper=1; 

if ($souperdouper)
{
   SouperDouperPrinter::Print($something); 
} 
else
{
   print $something; 
}