Select Code to Download

if (!do($include)) {
   my $error = $@ ? $@
...
             : 'did not return a true value';
   die("Unable to load common stuff: $error\n");
}

use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );
...
             : 'did not return a true value';
   die("Unable to load common stuff: $error\n");
}

use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );
...
             : 'did not return a true value';
   die("Unable to load common stuff: $error\n");
}

use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );
...
               ': did not return a true value';
   die("Unable to load common stuff$extra\n");
}