package testor;

my $componentName = '';
sub new{
	$componentName = $_;
}
sub isExist{
	return 0;
}
1;

#use testor;
my $myComponent = '7-Zip 9.20 (x64 edition)';
my $checker = testor->new($myComponent);

if( $checker->isExist() ){
	print '$myComponent already installed\n';
}else{
	print '$myComponent not installed\n';
}
exit 1;