use strict;
use warnings;

my $x="x";
my $module = $x . '::' . $x;

print "$module\n";
eval { require $module; };

##</code><code>##

use strict;
use warnings;

use Try::Tiny;

my $x="x";
my $module = $x . '::' . $x;

try {
  require $module;
  print "Found module $module.\n";
}
catch {
  print "Failed to find module $module!\n";
};