Perl 代码语法错误

似乎无法让这个工作，我一直得到的是一个语法错误

#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

my $Catagory = "Test";

if($Catagory eq 'Home'){
print "Location: http://www.DomainName/\n\n";

}else{

require ("Data/Library/$Catagory.lib");
$Catagory();

}

---

在最后一行中，您试图执行

$Category（）

，但它只包含一个标量。

---

除非你上面要求的文件中发生了一些真正神奇的事情

我只是在猜测“$Catagory.lib”中的内容，但看起来您正在尝试重新设计perl模块，从该文件调用一些东西。阅读并创建一个“Test.pm”模块可能是一个好主意。该模块中的子例程将像

Test:：foo（）

那样使用，语法错误是什么？