my $previous = <STDLOG>;
while (my $current = <STDLOG>) {
    print "Current line is: $current";
    print "Previous line is $previous";
    $previous = $current;
}