Select Code to Download

#!/usr/bin/perl
...
        $content = get('http://example.com/test.html');

....truncated

#!/usr/bin/perl -w
use LWP::Simple;
...
        $content = get('http://example.com/$device');

...truncated

Use of uninitialized value in substr at /usr/lib/perl5/HTML/PullParser
+.pm line 80.
Use of uninitialized value in length at /usr/lib/perl5/HTML/PullParser
+.pm line 83.

Use of uninitialized value in substr at /usr/lib/perl5/HTML/PullParser
+.pm line 80.
 at /usr/lib/perl5/HTML/PullParser.pm line 80
...
        main::switch_properties called at switchmapHTMLTEST1.pl line 2
+8
        main::get_index called at switchmapHTMLTEST1.pl line 19