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