#!/usr/bin/perl use warnings; use strict; my $module_file = 'Authen-SASL-Perl-NTLM-0.003.tar.gz'; my $module = $module_file; $module =~ s/(.*)-.*/$1/; print "$module_file => $module\n"; $module =~ s/-/::/g; print "$module_file => $module\n"; print "$module ", try_load($module) ? "is":"is not", " installed.\n"; sub try_load { my $mod = shift; eval("use $mod"); if ($@) { return(0); } else { return(1); } } __DATA__ Authen-SASL-Perl-NTLM-0.003.tar.gz => Authen-SASL-Perl-NTLM Authen-SASL-Perl-NTLM-0.003.tar.gz => Authen::SASL::Perl::NTLM Authen::SASL::Perl::NTLM is not installed.