open Tail, '/usr/bin/tail -f /my/log/file |' or die "Pipe failed: $!\n";
while (<Tail>){
    # Do stuff
}