#!/usr/bin/perl
#This is c2.pl

open (file, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file>) {
print NEW "http://" . $lines;
}
close (file);
exec("rm petpages ; mv petpages.new petpages");