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

open (file, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file>) {
$lines =~ tr/A-Z/a-z/;
print NEW $lines;
}
close (file);
exec("rm petpages ; mv petpages.new petpages ; perl c2.pl");

##</code><code>##

#!/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");

##</code><code>##

#!/usr/bin/perl

open (file, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file>) {
$lines =~ tr/A-Z/a-z/;
print NEW $lines;
}
close (file);
exec("rm petpages ; mv petpages.new petpages");
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");

##</code><code>##

Unquoted string "file" may clash with future reserved word at c.pl line 3.
Unquoted string "file" may clash with future reserved word at c.pl line 9.
Unquoted string "file" may clash with future reserved word at c.pl line 11.
Unquoted string "file" may clash with future reserved word at c.pl line 16.
Statement unlikely to be reached at c.pl line 11.
        (Maybe you meant system() when you said exec()?)

##</code><code>##

#!/usr/bin/perl

open (file, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file>) {
$lines =~ tr/A-Z/a-z/;
print NEW $lines;
}
close (file);
exec("rm petpages ; mv petpages.new petpages");
open (file2, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file2>) {
print NEW "http://" . $lines;
}
close (file2);
exec("rm petpages ; mv petpages.new petpages");

##</code><code>##

Unquoted string "file" may clash with future reserved word at c.pl line 3.
Unquoted string "file" may clash with future reserved word at c.pl line 9.
Statement unlikely to be reached at c.pl line 11.
        (Maybe you meant system() when you said exec()?)