# | Line 86 | Line 86 | sub cvs { | |
---|---|---|
86 | sub http { | |
87 | my $urlfile=shift; | |
88 | my $filename=shift; | |
89 | < | use LWP::Simple; |
89 | > | # use LWP::Simple; |
90 | print "Hello $filename, $urlfile\n"; | |
91 | < | open (STORE, ">$filename") || die "unable to open file $filename $!\n"; |
92 | < | print STORE (get 'http:'.$urlfile); |
91 | > | # open (STORE, ">$filename") || die "unable to open file $filename $!\n"; |
92 | > | # print STORE (get 'http:'.$urlfile); |
93 | close STORE; | |
94 | } | |
95 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |