Select Code to Download

[10] perl -Mwarnings /tmp/testit.pl
"my" variable @perlbooks masks earlier declaration in same scope at /t
+mp/testit.pl line 50.
...
        return"
Global symbol "@hrefs" requires explicit package name at /tmp/testit.p
+l line 34.
Execution of /tmp/testit.pl aborted due to compilation errors.

sub get_url {
   my $node  = shift;
...
   $url =~ s/\s+$//;
   return $url;
}