#!/usr/bin/perl

$myfile = "/Users/kris/test2.txt";
open(FH, ">$myfile");
print FH "Yo Stoney!\n";
close FH;
open(FH, "<$myfile");
#my @lines = <FH>;
while (my $line = <FH>) {
  print $line;
}
close FH;