package wireshark;

use warnings;
use strict;

sub fork_actions { qw/tap0 eth0/ }

our $AUTOLOAD;

sub AUTOLOAD {
	my $name = $AUTOLOAD;
	$name =~ s/.*://;   # strip fully-qualified portion

	warn "# $name";

	exec "wireshark -k -i $name";
}

1;
