#! /usr/bin/perl
# Prints Existing File to Screen using Read Function (prt_scrn3.pl)
#  $read xfile, $x, 100; 
#  reads 100 chars or bytes from xfil into variable $x

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