diff --git a/code/Perl/listurls.pl b/code/Perl/listurls.pl
new file mode 100755
index 0000000..ff5b788
--- /dev/null
+++ b/code/Perl/listurls.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use strict;
+use LWP::Simple;
+use HTML::Parser;
+
+my $page = get "https://tetalab.org";
+
+my $parser = HTML::Parser->new;
+$parser->parse($page);
+