Prel ile Dosya İşlemleri

#-------------------------------------------------
#Dosya Yazma İşlemi
#-------------------------------------------------
$chat_line=$ARGV[0]; 
# '>' olursa dosyayı yeniden üretir,'>>' olduğu için üzerine yazıyor
open(my $fh, '>>', 'dosya.txt'); 
print $fh "$chat_line\n";
close $fh;

#-------------------------------------------------

#Dosya Okuma İşlemi

#-------------------------------------------------

my $filename = 'dosya.txt';

if (open(my $fh, '<:encoding(UTF-8)', $filename)) {

  while (my $row = <$fh>) {

    chomp $row;

    print "$row\n";

  }

} else {

  warn "Could not open file '$filename' $!";

}