diff --git a/test/ThriftTest.thrift b/test/ThriftTest.thrift
index 92a3d21..fd0ac97 100644
--- a/test/ThriftTest.thrift
+++ b/test/ThriftTest.thrift
@@ -1,6 +1,7 @@
 java_package thrift.test
 cpp_namespace thrift.test
 ruby_namespace Thrift.Test
+perl_package ThriftTest
 
 enum Numberz
 {
@@ -50,7 +51,7 @@
   1: i32 errorCode,
   2: Xtruct struct_thing
 }
- 
+
 struct EmptyStruct {}
 
 struct OneField {
@@ -79,8 +80,7 @@
   map<UserId, map<Numberz,Insanity>> testInsanity(1: Insanity argument),
 
   /* Multiple parameters */
-  
-  Xtruct	testMulti(byte arg0, i32 arg1, i64 arg2, map<i16, string> arg3, Numberz arg4, UserId arg5),
+  Xtruct testMulti(byte arg0, i32 arg1, i64 arg2, map<i16, string> arg3, Numberz arg4, UserId arg5),
 
   /* Exception specifier */
 
diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl
index b3c9ca3..4e6278e 100644
--- a/test/perl/TestClient.pl
+++ b/test/perl/TestClient.pl
@@ -7,7 +7,7 @@
 use Time::HiRes qw(gettimeofday);
 
 use lib '../../lib/perl/lib';
-use lib 'gen-perl';
+use lib '../gen-perl';
 
 use Thrift;
 use Thrift::BinaryProtocol;
@@ -15,7 +15,7 @@
 use Thrift::BufferedTransport;
 
 use ThriftTest;
-use ThriftTest_types;
+use ThriftTest::Types;
 
 $|++;