diff --git a/perl/lists.pm b/perl/lists.pm
index e107948..40cec0e 100644
--- a/perl/lists.pm
+++ b/perl/lists.pm
@@ -11,5 +11,7 @@ sub content_lists
 {
     my ($ssn, $data, $lists) = @_;
 
-    to_template(\%vars, $data->{'content_lists.tt'});
+    my %vars = ();
+
+    to_template(\%vars, \$data->{'content_lists.tt'});
 }
diff --git a/perl/main.pl b/perl/main.pl
index a215e98..6d0c636 100644
--- a/perl/main.pl
+++ b/perl/main.pl
@@ -8,6 +8,7 @@ use template_helpers qw( &to_template );
 use timeline;
 use status;
 use account;
+use lists;
 
 # my $template = Template->new(
 #     {