#!/usr/local/bin/perl
#se lanseaza spre ex prin comanda DOS
#perl tst39.pl < in.txt > xx.txt
#ceea ce se citeste de la in.txt se scrie la xx.txt
#fie
#$line = <STDIN>;
#print ($line);
#pentru citirea unei lini
#fie
@line = <STDIN>;
print (@line);
#pentru citirea/scrierea intregului fisier
print ('press ENTER to EXIT');
$in = <STDIN>;