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

open (xfile, "<prt_scr.in") || die "can't open input file";
 while ($x = <xfile> )
 {
  print "$x \n";
 }
close xfile;

# Notes : Assigning this statement before the while loop spoils prog:
# $x = <xfile>;