open(my $P4DIFF, '+>', "p4diff.log") or die $!;
print $P4DIFF "foo\n" x 3;
# close $P4DIFF;

my $input = "p4diff.log";
open my $DATA, '<', $input or die "could not open '$input' $!"; 
      
while (my $line = <$DATA>) {
    print ">> $line";
}


##</code><code>##

>> foo
>> foo
>> foo