#!/usr/bin/perl -w

use strict;
use diagnostics;

mysub();


sub mysub{

my $vari = hereistheip();

print "This is the IP you entered --> $vari\n";

local $^I = ".bak";

@ARGV = "stuff";

    while (<>) {
        s/FOO/$vari/i;
        print;
    }
}

sub hereistheip{

print "Enter a valid server IP \n -->  ";

my $myip = <>;
chomp $myip;

return $myip;
}