#!/usr/bin/perl -w
use strict;

open(KISMET,"/tmp/kismet_dump") or die "$!";
while (<KISMET>) {
  print $_;
}