#!/usr/bin/perl 
# Cosmo Learning File Open operation PERL(II) class lecture. 814366

$fname = "814366.txt"; 
open XYZ, $fname, or die "Error open: $!"; 
while (<XYZ>) { 
	print "Line number $. ls: $_"; 
} # Does not farction "line 7: syntax error near unexpected token from shell!!`)'