#!perl -T
use strict; use warnings; # flame-resistant

print "module: ";
chomp(my $module = <STDIN>);

if ( $module =~ /^([A-Za-z0-9_:]+)$/ )
{
    $module = $1;
}
else
{
    die "Can't use $module: hack off, buddy!";
}

eval "use $module";
print "game over ($@)" if $@;
print "all clear\n";