Subir archivos a "/"

2025-06-16 20:42:50 +00:00
commit dc28f170be
5 changed files with 219 additions and 0 deletions
--- a/sonda.pl
+++ b/sonda.pl
@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use LWP::UserAgent;
+
+
+my $ua = LWP::UserAgent->new(
+ ssl_opts => { verify_hostname => 0 }
+ );
+my $req = HTTP::Request->new(GET => 'https://concentra.bbva.com/sonda_BBVA.log');
+my $res = $ua->request($req);
+if ($res->is_success) {
+  print $res->as_string;
+}
+else {
+  print "Failed: ", $res->status_line, "\n";
+}