#!/usr/bin/perl
use warnings;
use strict;

my $file = "file.txt";
open(OF,">",$file) || die "Unable to open file '$file':  $!\n";

while (1) {
        sleep 5;
        print "interval\n";  # prints to screen
        print OF "interval\n"; # prints to file
}

close(OF);