use Data::Dumper;
require LWP::UserAgent;
require HTTP::Request;
my $request = HTTP::Request->new(GET => 'http://pilot/sanju/index.php/empdata');
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
unless($response->is_success) { die 'Cannot connect to remote address'; }
 my $cmd = $response->content;
# print Dumper \$response;
open (FILE, "<" , \$cmd ) or die $! ;
 while (<FILE>){
 chomp;
 print $_;
}