#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', '/proc/stat' or die $!;
{
    print scalar <$fh>;
    seek $fh, 0, 0;
    sleep 1;
    redo;
}
__END__