#! /usr/bin/perl
# Prints Existing File to Screen using Array Variable (prt_scrn2.pl)

open (xfile, "<prt_scr.in") || die "can't open input file";
 @array = <xfile>;
 print @array;
close xfile;