or download this
if( $vmServerIP =~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)/
+){
if($1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255){
open (my $oldhfile, ,'<', $hfilepath) or die "Could not open $hf
+ilepath for reading.";
my @hfile = <$oldhfile>;