#!/usr/bin/perl

use strict;

sub get_class
{
	my ($pluginfile) = @_;

	$pluginfile =~ m!(.*?)\.pm$!i;

	return $1;
}

my $pluginfile  = "Plugin.pm";
my $pluginclass = get_class($pluginfile);

require $pluginfile;
my $obj = undef;
eval ($obj = new $pluginclass);

print $obj->get_name() if $obj;

1;