while( my $line = <STDIN> ) {
    # do some stuff with $line
}

##</code><code>##

use File::Tail::App;

tail_app({
    new          => shift,
    line_handler => sub {
        my ( $line ) = @_;
        # do some stuff with $line
    },
});