name = "varun"
ip='9.12.23.222' #including the irregular spaces

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

$data="./DATA.txt";

if (open(INFILE, $data)) {
	@svr_raw = <INFILE>;
	close(INFILE);
	} else {
	print "File  $data does not exist or is corrupted\n";
}

print $svr_raw->{name};

##</code><code>##

administrator@varunraj ~/scripts
$ ./learn_2.pl
Global symbol "$data" requires explicit package name at ./learn_2.pl line 6.
Global symbol "$data" requires explicit package name at ./learn_2.pl line 8.
Global symbol "@svr_raw" requires explicit package name at ./learn_2.pl line 9.
Global symbol "$data" requires explicit package name at ./learn_2.pl line 12.
Global symbol "$svr_raw" requires explicit package name at ./learn_2.pl line 15

Execution of ./learn_2.pl aborted due to compilation errors.

##</code><code>##

varun