[ic] need help getting custom pm to work

[Eric]

Hello all. I need a little help with getting a custom pm to work.
Hope you don't mind the code snippets being inside xml tags.

I'm just trying to test out some code in the index.html

<index.html>
[perl global=1 subs=1 failure="It no worky!"]
my $name = "Eric";
my $worked = fraudCheck($name);
$Document->write("$worked");
[/perl]
</index.html>

I keep getting:
Safe: Undefined subroutine &MVSAFE31032::fraudCheck called at (eval 212)
line 5.

<interchange.cfg>
Require module Vend::Fraud
</interchange.cfg>

<catalog.cfg>
Require module Vend::Fraud
</catalog.cfg>

<Vend::Fraud>
package Vend::Fraud;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw( &fraudCheck );

our $VERSION = '0.01';

sub new {
	my $self = shift;
	my $class = ref($self) || $self;
	return bless{}, $class;
}
sub fraudCheck {
	my $user = @_;
	return $user;
}
1;
__END__
</ Vend::Fraud>


Any ideas on how to solve this problem?

Eric Terry 
Metropolis Entertainment
http://www.metropolisentertainment.com
913-451-2400