# File:	file0.pl
# Title: 	FILES write and read
# Author:	Mihaela Malita

$s = 'Blaise Pascal';
print "String is: $S";

# WRITE in FILE
$filename = "test1.txt";
print "\nWrites string in file: $filename";
open(OUT,">$filename");
print OUT $s;
close OUT;

# READ from file
print "\nReads from file: $filename\n";
open(IN,"$filename");
$r = <IN>;
close IN;
print $r;
exit;