diff -r b49d0c63697a -r 808c73b7393e plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed Jun 18 14:02:16 2003 +0000
+++ b/plugins/perl/perl.c	Wed Jun 18 14:55:09 2003 +0000
@@ -1284,7 +1284,7 @@
 	gboolean status = TRUE;
 
 	perl_construct(prober);
-	perl_parse(prober, NULL, 2, argv, NULL);
+	perl_parse(prober, xs_init, 2, argv, NULL);
 	
 	{
 		dSP;