)#!/usr/bin/perl require LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->timeout(10); # $ua->env_proxy; my $response = $ua->get('http://accounts.mymusic.walla.co.il/site/Num +Balance.asp'); if ($response->is_success) { print $response->content; # or whatever } else { die $response->status_line; $w =readline(*STDIN); }
In reply to Real code by chiburashka
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |