sub create {
	my $class = shift;
	require File::Spec;
	my @path = split(/\:\:/,$class);
	my $file = pop @path;
	$file .= ".pm";
	my $fp = File::Spec->catfile(@path, $file);
	require $fp;
	return $class->new(@_);
}

##</code><code>##

Insecure dependency in require while running with -T switch at .... 
[the line "require $fp"]