Select Code to Download

 open my $fhi, '<', 'C:\shekhar_Axestrack_Intern\WindowCreation\ListOf
+IpAdress.txt', or die "Could not open file $!";
    while (my $line = <$fhi>) 
...
    }
    close $fhi;

open my $fhi, '<', 'C:\shekhar_Axestrack_Intern\WindowCreation\ListOfI
+pAdress.txt', or die "Could not open file $!";
    open my $fho, '>', 'C:\shekhar_Axestrack_Intern\WindowCreation\Lis
+tOfIpAdress.txt', or die "Could not open file $!";
...
    }
    close $fhi;