From e823f5d8839e5a8b20c2095c2722ee9623d66d84 Mon Sep 17 00:00:00 2001
From: tTh <tth@redlady.dinorama.fr>
Date: Tue, 12 Nov 2024 08:46:37 +0100
Subject: [PATCH] new bug nest

---
 code/Perl/listurls.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 code/Perl/listurls.pl

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);
+