use Spreadsheet::WriteExcel;
require LWP::UserAgent;
LWP::UserAgent();

my $request = HTTP::Request->new(GET=> "http://dvtk.com");

my $response = $ua->request($request);

if(!$response->is_success())
{

   print $response->error_as_HTML();
   die "No cpan module found";
}

my @data = split(/\n/, $response->content());


# Create a new Excel file

my $filename = "/home/report/test.xls";
my $workbook = Spreadsheet::WriteExcel->new($filename);

# Add a worksheet
my $worksheet = $workbook->add_worksheet('exec2');
while (defined ($_ = shift@data))
{
   print "$_ \n";
   $worksheet->write(0,0, $_);
	
}