#!/usr/bin/perl -w
use strict;

use LWP::Simple;
my $infile =  '/urls.txt';
my $outfile = '/webpage.htm';

# get first line from ulrs.txt
open F, $infile or die "Can't read $infile $!\n";
chomp (my $line = <F>);
close F;

# get webbpage
my $page = get($line);

# write contents to a file
open F, ">$outfile" or die "Can't write $outfile $!\n";
print F $page;
close F;

`vi $outfile`;