##
Commputer: ServerName
IP Address: 10.10.10.11
OS: Windows Server 2012
####
#!/usr/bin/perl
# open file
open(FILE, "data.txt") or die("Unable to open file");
# read file into an array
@data = ;
# close file
close(FILE);
# print file contents
foreach $line (@data)
{
print $line;
}